for i=1 to datagrid.rows datagrid.row=i datagrid.col=你要的列 aa=datagrid.text next
Sub Command1_Click () Dim I 这个例子从选定行的范围中,检索某个给定列中所有的值,并把它们装入一个数组中。 ReDim CalcArray (0 to DataGrid1.SelBooks.Count - 1) For I = 0 to DataGrid1.SelBooks.Count -1 '在选定的行数组中,把当前行的值 '放入相应的 CalcArray 单元格。 CalcArray(I) = _ DataGrid1.Columns(1).CellValue(DataGrid1.SelBooks(I)) Next I End Sub
如何循环datagrid某一列的数据 Dim I, str ,colscount 'colscount为总的行数 For I = 0 To colscount-1 DataGrid1.SelBooks.Add DataGrid1.RowBook(I) str = DataGrid1.Columns(1).CellText(DataGrid1.RowBook(I)) MsgBox str
datagrid.row=i
datagrid.col=你要的列
aa=datagrid.text
next
Dim I
这个例子从选定行的范围中,检索某个给定列中所有的值,并把它们装入一个数组中。
ReDim CalcArray (0 to DataGrid1.SelBooks.Count - 1)
For I = 0 to DataGrid1.SelBooks.Count -1
'在选定的行数组中,把当前行的值
'放入相应的 CalcArray 单元格。
CalcArray(I) = _
DataGrid1.Columns(1).CellValue(DataGrid1.SelBooks(I))
Next I
End Sub
Dim I, str ,colscount 'colscount为总的行数
For I = 0 To colscount-1
DataGrid1.SelBooks.Add DataGrid1.RowBook(I)
str = DataGrid1.Columns(1).CellText(DataGrid1.RowBook(I))
MsgBox str
Next I
' datagrid.row=i
' datagrid.col=你要的列
' aa=datagrid.text
'next
datagrid好像没有rows的属性吧?