主题：[求助]

合成一个条件，赋值到全局变量，如

 

Dim s As String = ""

For Each r As Row in Tables("表A").Rows

    s &= "'" & r("第一列") & "',"

Next

vars("s") = s.trim(",")

msgbox(vars("s"))

 

----------------------

 

然后，选择数据的窗口根据vars("s")的值，合成筛选条件，筛选数据，如

 

"第一列 not in (" & vars("s") & ")"

方法一：你可以判断

 

If vars("s") = "" Then

    不做处理

else

    "第一列 not in (" & vars("s") & ")"

End If

 

方法二：

 

Dim s As String = "'',"

For Each r As Row in Tables("表A").Rows

    s &= "'" & r("第一列") & "',"

Next

vars("s") = s.trim(",")

msgbox(vars("s"))

Dim s As String = "'',"

For Each r As Row In Tables("表A").Rows

    s &= "'" & r("第一列") & "|" & r("第二列") & "',"

Next

vars("s") = s.trim(",")

msgbox(vars("s"))

 

------------

 

"第一列+'|'+第二列 not in (" & vars("s") & ")"