以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  已勾选的行怎样保留并加新数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135008)

--  作者:sf020cf
--  发布时间:2019/5/14 22:55:00
--  已勾选的行怎样保留并加新数据

如图  在总表里选定不同行时怎样保留明细表里已经勾选的行,(已勾选的行保留勾选状态)并加载新的筛选数据

Tables("库存查询_table2").Filter = "[商品编号] = \'" & Tables("库存查询_table1").Current("商品编号") & "\'" and ......


--  作者:sf020cf
--  发布时间:2019/5/14 22:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:图例.png
图片点击可在新窗口打开查看

--  作者:sf020cf
--  发布时间:2019/5/14 22:57:00
--  
图片上传不了


--  作者:有点蓝
--  发布时间:2019/5/14 23:06:00
--  
如果是使用ShowCheckBox的勾选,在筛选前,先把勾选的行的主键记录下来,比如保存到集合中,重新筛选后,再根据保存的主键记录重新勾选回来。

Dim lst As new List(of Integer)
For Each r As Row In Tables("库存查询_table2").GetCheckedRows
    lst.Add(r("_Identify"))
Next

Tables("库存查询_table2").Filter = xxx
For Each r As Row In Tables("库存查询_table2").Rows
    r.Checked  = lst.Contains(r("_Identify"))
Next

--  作者:sf020cf
--  发布时间:2019/5/14 23:17:00
--  
是在副本表的复选框里勾选的
--  作者:sf020cf
--  发布时间:2019/5/14 23:18:00
--  
不知道为什么上传不了附件,显示上传成功了 没见显示
--  作者:sf020cf
--  发布时间:2019/5/14 23:25:00
--  
要这个功能初衷是 在主表里定位查找某样东西。明细表根据主表的商品编号列出所有该商品明细,在所列的明细里勾选一行或者多行出库,再加其他商品时 已选的保留在明细列表里,并处于勾选状态,如已选3行2个品种 在第四行加载总表所在行的明细数据
--  作者:有点甜
--  发布时间:2019/5/15 9:16:00
--  

 

加一个辅佐列吧,加一个表达式列或者临时列,用于勾选。