此主题相关图片如下：snipaste_2022-08-02_20-40-10.jpg
Dim filter As String
Dim sts() As String = {"年份","状态","产品编号","项目编号","模具编号","客户代号","业务","设计内容_DFM","设计内容_3D","设计内容_模流","设计负责人","当前设计师"}
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
If CurrentTable.Filter > "" Then
MessageBox.Show(filter)
Tables("项目总表").Filter = Tables("项目总表").Filter & “ and filter”
Else
Tables("项目总表").Filter = filter
Tables("项目总表").Sort = "项目号,排序"
End If
加好友 
发短信
Post By：2022/8/2 20:41:00 [显示全部帖子]
