'追加数据
Dim r As Row = Tables("公司_Table1").Current
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
DataTables("联系人").AppendLoad(Filter2)
End If
为什么用filter没有问题,用filter2会报错
这一行报错:Dim Filter2 As String = "单位名称 = '" & r(单位名称") & "'"
[此贴子已经被作者于2020/7/9 9:34:55编辑过]