以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如图,如何将窗体中表的复选的多行进行复制?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108956)

--  作者:fczhaobo
--  发布时间:2017/11/1 14:20:00
--  如图,如何将窗体中表的复选的多行进行复制?
如图,如何将窗体中表的复选的多行进行复制?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20171101141945.png
图片点击可在新窗口打开查看

--  作者:fczhaobo
--  发布时间:2017/11/1 14:21:00
--  
多选后,同表复制,谢谢!
--  作者:fczhaobo
--  发布时间:2017/11/1 14:41:00
--  
请老师回答,如何遍历所有已经勾选的行,窗体表,按钮克隆复制,谢谢^
--  作者:有点甜
--  发布时间:2017/11/1 15:53:00
--  
Dim t As Table = Tables("表A")
For Each r As Row In t.GetCheckedRows
    Dim nr As Row = t.AddNew
    For Each c As Col In t.cols
        If c.DataCol.Expression = "" Then
            nr(c) = r(c)
        End If
    Next
Next