以文本方式查看主题

-  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=77839)
--  作者：yupeng
--  发布时间：2015/11/26 11:29:00
--  [求助]复制当前行

有一个Button控件

点击这控件后能实现以下功能

 

复制当行的指定列 新增行  复制值的粘贴到新增行的指定列。
--  作者：大红袍
--  发布时间：2015/11/26 11:48:00
--  

Dim t As Table = Tables("表A")
Dim cr As Row = t.Current
Dim nr As Row = t.AddNew

nr("第一列") = cr("第一列")