如何循环datagrid某一列的数据

解决方案 »

  1.   

    for i=1 to datagrid.rows
       datagrid.row=i
       datagrid.col=你要的列
       aa=datagrid.text
    next
      

  2.   

    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
      

  3.   

    如何循环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
         
       Next I
      

  4.   

    'for i=1 to datagrid.rows
    '   datagrid.row=i
    '   datagrid.col=你要的列
    '   aa=datagrid.text
    'next
    datagrid好像没有rows的属性吧?