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的方法排序
应该怎样写在里面？
谢谢
加好友 
发短信
Post By：2019/7/5 16:19:00 [只看该作者]
