以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]如何只显示复选框选中的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186889)

--  作者:moseser
--  发布时间:2023/6/6 19:28:00
--  [讨论]如何只显示复选框选中的行
有一个datatables("A")
主窗口  为tables("A")
在这个窗口中,我用复选框的形式,选中了10行

还有一个弹出窗口,绑定了表A,是副本
这个窗口中,我只想显示选中的那10行

tables("窗口_tables1").filter = " 复选框选中的那10行" ?

请问这里该怎么写代码


--  作者:有点蓝
--  发布时间:2023/6/6 20:40:00
--  
Dim s As String = ""
For Each r As Row In Tables("表A").GetCheckedRows
    s = s & "," & r("_Identify")
Next
If s > "" Then
    s = s.Trim(",")
    Tables("窗口_tables1").Filter = "[_Identify] in (" & s & ")"
End If