Dim Filter As String = "单位编号 = '" & r(单位编号") & "'" ‘用单位编号 If DataTables("发邮件").Find(Filter) Is Nothing Then DataTables("发邮件").AppendLoad(Filter) End If
Dim Filter2 As String = "单位名称 = '" & r(单位名称") & "'" ’用单位名称 If DataTables("联系人").Find(Filter2) Is Nothing Then