Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("出入库-采购单输入_Table1")
If txt = "" Then
tbl.Filter = "未收货数量 > 0"
Else
txt = "'%" & txt & "%'"
tbl.Filter = "未收货数量 > 0 and (供应商代号 Like " & txt & "Or 供应商名称 Like " & txt & " Or 物料编号 Like " & txt & " Or 物料名称 Like " & txt & " Or 采购单号 Like " & txt & ")"
加好友 
发短信
Post By：2018/9/5 15:23:00 [显示全部帖子]
