楼主，如果你是查询：
Dim txt As string = e.Form.Controls("xxx").Value
txt = txt.Replace("*", "[*]")
Tables("xxxs").Filter = "某某列 Like ‘*" & txt & "*'"
加好友 
发短信
Post By：2013/6/8 12:16:00 [显示全部帖子]
