设置表A的DataColChanged事件：
if e.DataCol.Name = "某列" Then
Dim dr As DataRow = DataTables("表B").Find("某列 = '" & e.NewValue & "'")
if dr Isnot Nothing Then
e.Datarow("逻辑列") = True
Else
e.Datarow("逻辑列") = False
End If
加好友 
发短信
Post By：2013/5/16 18:10:00 [显示全部帖子]
