要求勾选某一复选框时,自动把第二列相同的行也勾选上。
此主题相关图片如下:qq截图未命名.png
试一试吧::::
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编辑过]
以下是引用czy在2009-12-15 23:48:00的发言:
'table控件AfterCheckRow事件代码
For Each r As Row In Tables("窗口1_Table1").Rows
If r("第二列") = e.row("第二列") Then
r.Checked = e.row.Checked
End If
Next
感觉这种代码效率还是低。
如果Table也有DataTable相同功能的Select方法,效率上去了,代码也简单。
以下是引用czy在2009-12-16 0:06:00的发言:
感觉这种代码效率还是低。
如果Table也有DataTable相同功能的Select方法,效率上去了,代码也简单。
呵呵,也有啊:
DataTables("sss").Select(Tables("sss").Filter And "条件" )
以下是引用狐狸爸爸在2009-12-16 9:51:00的发言:
呵呵,也有啊:
DataTables("sss").Select(Tables("sss").Filter And "条件" )
学习了,建议写入帮助!
[此贴子已经被作者于2009-12-16 10:20:28编辑过]
以下是引用狐狸爸爸在2009-12-16 9:51:00的发言:
呵呵,也有啊:
DataTables("sss").Select(Tables("sss").Filter And "条件" )
收藏。
愚钝,请指点一下:我将"sss"用本便中"表A"替换,还需修改什么才能实现楼主要求?
DataTables("表A").Select(Tables("表A").Filter And "条件" )