[求助]如何筛选出已选定的行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有6874人关注过本帖树形打印复制链接主题：[求助]如何筛选出已选定的行

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编辑过]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/21 9:02:00 [只看该作者]

Dim ids As String

Dim rlist As List(of Row) = Tables("表A").GetCheckedRows

If rlist.count> 0 Then

For Each r As Row In rlist

ids = ids & ",'" & r("_Identify") & "'"

ids= ids.Trim(",")

Tables("表A").Filter = "_IDentify In (" & ids & ")"

For Each r As Row In Tables("表A").Rows

r.Checked =True

End If

9EQ98

小大 3楼 | 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

小大 4楼 | 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().

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/1/21 9:20:00 [只看该作者]

Dim ids As String
Dim rlist As List(of Row) = Tables("表A").GetCheckedRows
If rlist.count> 0 Then
    For Each r As Row In rlist
        ids = ids & "," & r("_Identify")
    Next
    ids = ids.Trim(",")
    Tables("表A").Filter = "[_Identify] In (" & ids & ")"
End If

[此贴子已经被作者于2014-1-21 9:20:03编辑过]