以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格中的复选框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72127)

--  作者:niu_niu
--  发布时间:2015/7/23 18:18:00
--  表格中的复选框
表格A中每行显示复选框,表A中选择不同行后,会在表格B中显示相关信息。如何遍历表A中勾选的行,将其关联信息拷贝到另外的表格C中?
--  作者:czy
--  发布时间:2015/7/23 19:12:00
--  
For Each r As Row In Tables("表A").GetCheckedRows()
    Dim dr As Row = Tables("表C").AddNew
    dr("第一列") = r("第一列")
Next


--  作者:大红袍
--  发布时间:2015/7/23 19:20:00
--  

 参考 http://www.foxtable.com/help/topics/1776.htm

 


--  作者:niu_niu
--  发布时间:2015/7/24 11:26:00
--  
在遍历表A时,表A中的焦点也能随着当前处理行的不同而变动,这个该如何处理呢?
--  作者:大红袍
--  发布时间:2015/7/24 12:13:00
--  
For Each r As Row In Tables("表A").GetCheckedRows()
    Tables("表A").Position = r.Index
    Dim dr As Row = Tables("表C").AddNew
    dr("第一列") = r("第一列")
Next

--  作者:有点蓝
--  发布时间:2015/7/24 12:14:00
--  
在遍历的时候加
   Tables("表A").Position  = r.Index