以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何克隆行插入在下一行,不在克隆在最后一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145507)

--  作者:hpilkjun
--  发布时间:2020/1/25 19:35:00
--  如何克隆行插入在下一行,不在克隆在最后一行
如题,增一按钮,用于复制某表(或鼠标选中的表)中的一行的内容,并在此行的下一行插入,同时粘贴进上一行内容。而不是克隆到最后一行。

[此贴子已经被作者于2020/1/25 19:36:54编辑过]

--  作者:y2287958
--  发布时间:2020/1/26 9:39:00
--  
插入后复制所有内容
--  作者:yangsion
--  发布时间:2020/12/10 16:23:00
--  
我也想知道。
现在只知道用

Syscmd.Row.Insert()
Syscmd.Row.MoveDown()
然后手动复制粘贴
[此贴子已经被作者于2020/12/10 16:23:45编辑过]

--  作者:有点蓝
--  发布时间:2020/12/10 16:57:00
--  
Dim r As Row = Tables("表A").current
Dim nr As Row = Tables("表A").InsertNew()
nr
("第一列") = 
r("第一列")
nr("第二列") = r("第二列")
……