'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