以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]副本表筛选之后如何保持复选框选中状态  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=166063)
--  作者：昱飞哥
--  发布时间：2021/5/17 10:58:00
--  [求助]副本表筛选之后如何保持复选框选中状态
我有个窗口：Forms("窗口1")
窗口副本表：tables("窗口1_Table1")，绑定datatables("客户信息表")
如下图所示：

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

“窗口1”的Afterload事件中，有代码：
Tables("窗口1_Table1").ShowCheckBox = True  \'Tables("窗口1_Table1")显示复选框

窗口中放了个文本框"TextBox1"，在它的TextChanged事件中，有如下代码：
Dim s As String = e.Form.Controls("TextBox1").text
Tables("窗口1_Table1").Filter = "客户名称 like \'*" & s & "*\'"

然后，有个问题：窗口1运行后，我先勾选tables("窗口1_Table1")的复选框，比方我现在选中了其中1行。当我在文本框"TextBox1"中输入字符，触发其TextChanged事件后，原本选中的那一行复选框又自动取消选中状态了。
有没有什么办法，就是我筛选后再选中，原本选中的行保持已经选中的状态。
--  作者：有点蓝
--  发布时间：2021/5/17 11:08:00
--  
方法1、利用集合保存已经勾选的行的主键_Identify值，筛选后，遍历表格所有行，如果_Identify值在这个集合中，就勾选上
2、添加一个逻辑列进行勾选