Foxtable(狐表)用户栏目专家坐堂 → 选中行后筛选


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

主题:选中行后筛选

帅哥,在线噢!
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:53319 积分:270262 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/3 9:39:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:选中筛选(1).zip


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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/6/3 9:46:00 [只看该作者]

谢谢老师,感谢 感谢 

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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/6/5 21:51:00 [只看该作者]

老师,如果要清除之前选中的记忆应该怎么写呀,
比如我现在筛选,选中,然后后面切换后会就自动勾选到开启项目时候被选中的行,可以是点击按钮,然后就重新开始记忆吗?感谢 感谢 

If e.Button = MouseButtons.Right Then  '右键点击显示
Tables("窗口1_Table1").ClearCheckedRows
End If

 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:53319 积分:270262 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/6 8:55:00 [只看该作者]

清空按钮

lst.clear

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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/6/6 20:35:00 [只看该作者]

老师,我可以把这两段代码融合到一起吗?就是切换的时候不要全部都显示出来,是筛选后的,感谢 感谢     

Dim t As Table = e.Form.Controls("Table2").Table
    For Each r As Row In t.GetCheckedRows
        If lst.contains(r("_Identify")) = False
            lst.Add(r("_Identify"))
        End If
    Next
    
    t.ApplyFilter = not t.ApplyFilter
    
    For Each r As Row In t.Rows
        If lst.Contains(r("_Identify")) Then
            r.Checked  = True
        End If
    Next

Tables("采订录入窗口_Table2").Filter = "企业链号 Like '%" & e.Form.Controls("ComboBox4").Text & "%'"  '  筛选出行\

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:53319 积分:270262 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/7 20:42:00 [只看该作者]

Dim t As Table = e.Form.Controls("Table2").Table
    For Each r As Row In t.GetCheckedRows
        If lst.contains(r("_Identify")) = False
            lst.Add(r("_Identify"))
        End If
    Next
    
    t.Filter = "企业链号 Like '%" & e.Form.Controls("ComboBox4").Text & "%'"
    
    For Each r As Row In t.Rows
        If lst.Contains(r("_Identify")) Then
            r.Checked  = True
        End If
    Next

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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/6/12 14:58:00 [只看该作者]

老师 ,能在帮忙看看这段吗?
就是如果没有选中(一行都没有选中)就会弹出下面的错误,

可以是如果一行都没有选中就不显示吗? 感谢 感谢 


.NET Framework 版本:2.0.50727.9151
Foxtable 版本:2018.10.9.1
错误所在事件:
详细错误信息:
语法错误: IN 关键字后面必须是由逗号分隔的非空表达式列表,并且必须用括号括起来。




Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows
    If lst.contains(r("_Identify")) = False
        lst.Add(r("_Identify"))
    End If
Next
Dim s As String = ""
For Each r As Row In Tables("采订录入窗口_Table1").GetCheckedRows
    s =s & "," & r("_Identify")
Next
s = s.Trim(",")
t.Filter = "[_Identify] in (" & s & ")"

For Each r As Row In t.Rows
    If lst.Contains(r("_Identify")) Then
        r.Checked  = True
    End If
Next

 回到顶部
帅哥,在线噢!
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:53319 积分:270262 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/12 15:09:00 [只看该作者]

Dim s As String = ""
For Each r As Row In Tables("采订录入窗口_Table1").GetCheckedRows
    s =s & "," & r("_Identify")
Next
if s = "" then return

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


加好友 发短信
等级:九尾狐 帖子:2604 积分:17226 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/6/12 15:36:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:选中筛选.table

感谢 老师,就是当一个都没勾选的时候,就窗口的表就显示为空白,
感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200612153415.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:53319 积分:270262 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/12 15:55:00 [只看该作者]

Dim s As String = ""
For Each r As Row In Tables("采订录入窗口_Table1").GetCheckedRows
    s =s & "," & r("_Identify")
Next
if s = "" then 
t.Filter = “false”
return
end if

 回到顶部
总数 23 上一页 1 2 3 下一页