以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  二次筛选代码出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179006)
--  作者：lianghanyu
--  发布时间：2022/8/2 20:41:00
--  二次筛选代码出错

图片点击可在新窗口打开查看此主题相关图片如下：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
--  作者：有点蓝
--  发布时间：2022/8/2 20:56:00
--  
 Tables("项目总表").Filter = Tables("项目总表").Filter & “ and ” & filter