v4.0
Sets values for a single column of a GridData object.
GridData.SetColumnValues( Object in_lColumn, Object in_1DArray ); |
GridData.SetColumnValues( ColumnIndex, [NewValues] ); |
| Parameter | Type | Description |
|---|---|---|
| ColumnIndex | long or string | Index or label of the Column. The left-most column has index 0. |
| NewValues | 1-Dimensional Array | The size of this array should be equal to GridData.RowCount |
'Demo of SetColumnValues 'and GetColumnValues dim oGridData set oGridData = XSIFactory.CreateGridData oGridData.ColumnCount = 4 oGridData.RowCount = 2 'Array size 2 dim aColVals( 1 ) for i = 0 to oGridData.ColumnCount - 1 aColVals(0) = i aColVals(1) = i + 10 oGridData.SetColumnValues i, aColVals next 'Check the results dim aRead for i = 0 to oGridData.ColumnCount - 1 aRead = oGridData.GetColumnValues( i ) if ( aRead(0) <> i OR _ aRead(1) <> ( i + 10 ) ) then LogMessage "Unexpected" end if next |