Foxtable(狐表)用户栏目专家坐堂 → [求助]如何筛选出已选定的行


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

主题:[求助]如何筛选出已选定的行

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
[求助]如何筛选出已选定的行  发帖心情 Post By:2014/1/21 8:54:00 [显示全部帖子]

在表格的 DoubleClick (双击事件) 中写入以下代码:
If e.Row.Checked = True Then '如果当前行为选定行(表格允许显示复选框)
    e.Row.Checked = False        '取消选定
Else
    e.Row.Checked = True         '选定当前行
End If

图片点击可在新窗口打开查看此主题相关图片如下:筛选出已选定行.jpg
图片点击可在新窗口打开查看

想加入一个按钮,让表格只显示出已选定的行,(筛选出已选定的行)
请问如何实现
[此贴子已经被作者于2014-1-21 8:59:02编辑过]

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 9:07:00 [显示全部帖子]

The expression contains undefined function call Tables().

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 9:07:00 [显示全部帖子]

测试结果:

.NET Framework 版本:2.0.50727.3053
Foxtable 版本:2013.10.14.1
错误所在事件:
详细错误信息:
The expression contains undefined function call Tables().

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:03:00 [显示全部帖子]

谢谢 狐狸爸爸 没问题了,但又出了新问题
如果显示所有未选记录

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:04:00 [显示全部帖子]

谢谢 狐狸爸爸 没问题了,
但又出了新问题
如果显示所有未选记录
原已选定的记录,也成了未选定状态,当恢复(所有记录,筛选为空时,Tables("表A").Filter="")

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:07:00 [显示全部帖子]

谢谢,能使用了,但又出了新的问题

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:18:00 [显示全部帖子]

请问怎样恢复移除行的显示呢

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:19:00 [显示全部帖子]

代码没有问题
问题是:切换至 未选定行筛选时,原来选定的行,也成了未选定行

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:23:00 [显示全部帖子]

所以我知道为什么要加上 下面的循环了
    For Each r As Row In Tbl.Rows
        r.Checked =True
    Next

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


加好友 发短信
等级:二尾狐 帖子:521 积分:4784 威望:0 精华:0 注册:2014/1/16 16:55:00
  发帖心情 Post By:2014/1/21 10:36:00 [显示全部帖子]

Dim ids As String
Dim tbl As Table = Tables("用户多选_Tbl_Check")
Dim rlist As List(of Row) = Tbl.GetCheckedRows
If rlist.count> 0 Then
    For Each r As Row In rlist
        ids = ids & "," & r("_Identify") 
    Next
    ids = ids.Trim(",")
    tbl.Filter = "[_Identify] In (" & ids & ")"
End If


 回到顶部
总数 17 1 2 下一页