...
Dim s AS string = "注册区域 = '" & d.Text & "' and 法定代表人 like '*" & f.Text & "*' and 客户 like '*" & k.Text & " *' and 联系人 like '*" & l.Text & "*'"
Messagebox.show(s)
Tables("客户档案").Filter = s
加好友 
发短信
Post By：2013/10/11 8:37:00 [显示全部帖子]
