这是写在窗口表（副表）中click事件中的代码，实现的目的是，如果当前行复选框被选中且[识别码]不为空的话，查找与当前行[识别码]一致的行，如果有（可能是多个行）则一起被选中，同理，如果当前行复选框不选中，则查找到的行也都不选中，按甜老师的方法好像不起作用，用Select好像只能针对datarow,不能操作复选框。
Dim d As Row =e.Table.Current
If d.Checked = True
d.Checked = False
If d("识别码") <> "" Then
Dim th As String = d("识别码")
Dim idx As Integer = -1
Do While True
idx = Tables("财务管理_副表1").FindRow("识别码 = '& th &'", idx+1, False)
If idx > -1 Then
Tables("财务管理_副表1").Rows(idx).Checked = False
Else
Exit Do
End If
Loop
End If
Else
d.Checked = True
………………
End If
说明一下，单击首先改变复选框状态。
[此贴子已经被作者于2015-1-20 15:13:08编辑过]
加好友 
发短信
Post By：2015/1/20 9:37:00 [显示全部帖子]
