Dim Li As String() = {"A","B","C"}Dim filter As String = "1=2"For Each Value As String In Li filter = filter & " or 第一列 = '" & Value & "'"Nextfilter = "第三列 = true and (" & filter & ")"
msgbox(filter)
加好友 
发短信
Post By：2015/1/19 10:23:00 [显示全部帖子]
