- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 订单查询问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124398)
-- 发布时间：2018/9/5 15:07:00
-- 订单查询问题
此主题相关图片如下：订单查询问题.jpg
以上是订单查询窗口，其 textchanged 里面的代码如下：
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("出入库-采购单输入_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "供应商代号 Like " & txt & "Or 供应商名称 Like " & txt & " Or 物料编号 Like " & txt & " Or 物料名称 Like " & txt & " Or 采购单号 Like " & txt
End If
我希望增加一个条件，将“采购单”这个数据表里面“未收货数量”=0的数据行筛选掉。如何改写代码? 谢谢。
-- 发布时间：2018/9/5 15:23:00
--
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 & ")"
End If