vb.net 遍历Dategrid

'1得到Datagrid 的DataSource，这里我用的是datatable,也可以用数据集

        Dim dTable As DataTable
        Dim id As Int64

        Dim i as int32

        Dim sql As String
        dTable = CType(Datagrid1.DataSource, DataTable)

 '遍历dategrid按行遍历，这里是按行看是不是被选择，去掉下面的IF语句，直接遍历各CELL 
        For i = 0 To dTable.Rows.Count - 1

               If  Datagrid1.IsSelected(i) Then
                        变量 = Datagrid1.Item(i, 0)              '得到dategrid各格子，x,y从0开始记录
                         。。。。。。。。。。。

               end if

         Next

http://www.enadd.com/appdev/VBNET/vbnetskill/200701/appdev_16218.html  原创：enadd