以文本方式查看主题 - 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) |