If Tables.Contains("人员关联表") Then For Each r As Row In Tables("人员关联表").Rows If r("姓名") IsNot Nothing Then Dim drs = DataTables("告知内容").Select("姓名 = '" & r("姓名") & "' and (是否告知 is null or 是否告知 <> '是')") If drs.count = 0 Then r.Checked = False Else r.checked = True End If End If Next End If