Foxtable(狐表)用户栏目专家坐堂 → filter 和 LoadFilter 怎么用?


  共有5390人关注过本帖树形打印复制链接

主题:filter 和 LoadFilter 怎么用?

帅哥哟,离线,有人找我吗?
lianghanyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2513 威望:0 精华:0 注册:2020/6/28 8:43:00
filter 和 LoadFilter 怎么用?  发帖心情 Post By:2022/7/1 16:29:00 [只看该作者]

如下代码,我的本意是,在表格里筛选,列出 我想要的项目, 如果当前加载的表格里找不到,我再加载过来后再筛选出来我想要的

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



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 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2513 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2022/7/1 17:10:00 [只看该作者]

谢谢,

 回到顶部