以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  克隆行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101810)

--  作者:18661970670
--  发布时间:2017/6/7 15:57:00
--  克隆行
克隆行的时候,如何使新增行在被克隆行的下一行出现,而不是在表的最末行出现?
--  作者:狐狸爸爸
--  发布时间:2017/6/7 16:54:00
--  
自己做个克隆的按钮,代码:

Dim r1 As Row =  Tables("表A").Current
Dim pz As Integer = Tables("表A").Position 
Dim r2 As Row = Tables("表A").AddNew
For Each c As Col In Tables("表A").Cols
    r2(c) = r1(c)
Next
r2.Move(pz+1)