以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  筛选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137421)

--  作者：swindy --  发布时间：2019/7/5 16:19:00 --  筛选问题 Dim filter As String Dim sts () As String = {"客户","物料名称","客户订单"} For Each st As String In sts     Dim val As String = e.Form.Controls(st).value     If val > "" Then \'如果不是空         Val = val.replace("*","[*]") \'把"*" 符号变成字符才能使用         If filter = "" Then             filter = st & " like \'*" & val & "*\'"         Else             filter = filter & " and " & st & " like \'*" & val & "*\' "         End If     End If Next Tables("订单明细表").Filter = Filter ***筛选以后， 1. 我想把 “订单数量 <> 0” 2. 按“订单日期” 用sort的方法排序 应该怎样写在里面？ 谢谢

--  作者：有点蓝 --  发布时间：2019/7/5 16:23:00 --   Dim filter As String = “订单数量 <> 0” …… Tables("订单明细表").Filter = Filter Tables("订单明细表").sort = "订单日期"

--  作者：swindy --  发布时间：2019/7/6 15:11:00 --   谢谢