试一试吧::::
Dim dr As List(of Row) = Tables("窗口1_Table1").GetCheckedRows()
For Each r As Row in dr
Dim drs As List(Of Datarow)
drs = dataTables("窗口1_Table1").Select("[第二列] = " & r("第二列") & " ")
With Tables("窗口1_Table1")
for i as integer = 0 to drs.count-1
Dim r1 As Integer
r1 = .FindRow("[第二列] = " & r("第二列") & " ", .Position + 1, True )
Tables("窗口1_Table1").Position = r1
Tables("窗口1_Table1").Rows(r1).Checked = True
next
End With
Next
[此贴子已经被作者于2009-12-15 23:20:32编辑过]
加好友 
发短信
Post By：2009/12/15 23:20:00 [显示全部帖子]
