Dim txt As String = e.Form.Controls("查询").Text Dim tbl As Table = Tables("标准产品_标准产品") If txt = "" Then tbl.Filter = "" Else txt = "'*" & txt.replace("*","[*]") & "*'" tbl.Filter = "产品名称 Like " & txt & " Or 型号 Like " & txt & " Or 规格 Like " & txt & " Or 图号 Like " & txt End If
加好友 
发短信
Post By：2013/4/20 10:26:00 [显示全部帖子]
