现在有两张表 人员关联表 告知内容表
想实现根据告知内容表中的是否告知 内容如果是“是”
那么就把人员关联表中的复选框全部取消
如果是否告知 内容如果是“否”
那么就把人员关联表中的复选框 按照结果是“否”对应的姓名值进行选中
下面的代码只能实现全部是“是”后取消勾选，“否”后全部选择，不能实现“是“”否”都存在的情况下，自动按照上面要求进行判断。
此主题相关图片如下：11.png
If Tables.Contains("人员关联表") Then
For Each r As Row In Tables("人员关联表").Rows
If r("姓名") IsNot Nothing Then
For Each r1 As Row In Tables("告知内容").Rows
If r1("是否告知") ="否" Then
Dim dr As DataRow
dr = DataTables("人员关联表").Find("姓名 = '" & r1("姓名") & "'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("人员关联表").FindRow(dr)
If wz >= 0 Then
Tables("人员关联表").Position = wz
r.Checked = True
End If
End If
Else
r.Checked = False
End If
Next
End If
Next
End If
[此贴子已经被作者于2019/2/12 17:40:40编辑过]
加好友 
发短信
Post By：2019/2/12 17:08:00 [只看该作者]
