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

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

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

9EQ98

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

加好友

发短信

等级：一尾狐帖子：484 积分：4407 威望：0 精华：0 注册：2014/1/16 16:55:00

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

'Dim tbl As Table = Tables("用户多选_Tbl_Check")

'Dim ids As String

'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 & ")"

'For Each r As Row In Tbl.Rows

'r.Checked =True

'Next

'End If

虽然加上红色部分可以解决选定问题,但切换至未选定行,或全部记录时,已选记录的标志没有了

9EQ98

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

加好友

发短信

等级：一尾狐帖子：484 积分：4407 威望：0 精华：0 注册：2014/1/16 16:55:00

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

Tbl.Filter = "_IDentify In (" & ids & ")"

为什么执行这个筛选后,Checked 标志会没有了,求解

Bin

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

加好友

发短信

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

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

把IDS保存起来放到一个全局变量中.

然后每次执行完相关操作,你希望显示选中行的时候

利用Select找到对应的行集合

http://www.foxtable.com/help/topics/0400.htm

再根据Datarow 找到对应的ROW, 然后设置Checked属性为True即可

语法二

FindRow(DataRow)

DataRow: 指定一个数据行

返回指定的数据行在Table中的位置，如果没找到（例如Table处于筛选状态，而此数据行恰好不符合筛选条件），则返回-1。

例如在订单表中，我们希望将光标定位到最后一次订购PD01产品的订单：

Dim dr As DataRow
dr = DataTables("订单").Find("[产品] = 'PD01'", "日期 Desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("订单").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").rows(wz)=true
    End If
End If

9EQ98

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

加好友

发短信

等级：一尾狐帖子：484 积分：4407 威望：0 精华：0 注册：2014/1/16 16:55:00

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

我给表加了个 Sys_Check 字段

已选定行按钮代码:

Dim tbl As Table = Tables("用户多选_Tbl_Check")

tbl.Filter = " Sys_Check " & "=" & " True "

For Each r As Row In tbl.Rows

If r(Sys_Check) = True Then

r.Checked = True

End If

未选定行按钮代码:

Dim tbl As Table = Tables("用户多选_Tbl_Check")

tbl.Filter = " Sys_Check " & "=" & " False "

全部行按钮代码

Dim tbl As Table = Tables("用户多选_Tbl_Check")

tbl.Filter = ""

For Each r As Row In tbl.Rows

If r(Sys_Check) = True Then

r.Checked = True

End If

Bin

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

加好友

发短信

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

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

也是个好注意. 这样你干脆用自定义的逻辑列当作复选框使用好了. 移到第一列.

9EQ98

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

加好友

发短信

等级：一尾狐帖子：484 积分：4407 威望：0 精华：0 注册：2014/1/16 16:55:00

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

也对哦,那样就更简单呢

哈哈,谢谢了

下一主题 >> << 上一主题

总数 26 上一页 1 2 3

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