以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  filter 和 LoadFilter 怎么用?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178370)

--  作者:lianghanyu
--  发布时间:2022/7/1 16:29:00
--  filter 和 LoadFilter 怎么用?
如下代码,我的本意是,在表格里筛选,列出 我想要的项目, 如果当前加载的表格里找不到,我再加载过来后再筛选出来我想要的

麻烦看一下我的代码哪里不对??



If User.Group = "经理" Then
        Dim filter As String
        Dim pro As WinForm.ComboBox = e.Form.Controls("项目编号")
        If pro.Text IsNot Nothing Then
            filter = "项目编号 like \'%" & pro.text & "%\'"
            
        End If
        
        Tables("项目总表").Filter = filter    
        
        If Tables("项目总表").Position = 1 Then
            \'          
                        DataTables("项目总表").LoadFilter =  filter 
                    DataTables("项目总表").Load
        End If 
End If 

--  作者:有点蓝
--  发布时间:2022/7/1 16:48:00
--  
If User.Group = "经理" Then
        Dim filter As String
        Dim pro As WinForm.ComboBox = e.Form.Controls("项目编号")
        If pro.Text > "" Then
            filter = "项目编号 like \'%" & pro.text & "%\'"
            if DataTables("项目总表").Find(filter ) is nothing then
DataTables("项目总表").appendload(filter ) 
end if
        End If
Tables("项目总表").Filter = filter    
End If 

--  作者:lianghanyu
--  发布时间:2022/7/1 17:10:00
--  
谢谢,