以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  插入行时，复制上一行的内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50630)
--  作者：tj-pacer
--  发布时间：2014/5/10 7:13:00
--  插入行时，复制上一行的内容
插入行时，要复制上一行的部分列的内容，如何实现？
--  作者：lsy
--  发布时间：2014/5/10 7:37:00
--  
Dim r As Row = Tables("表A").Current
Dim nr As Row = Tables("表A").InsertNew
For Each c As Col In Tables("表A").Cols
    nr(c.Name) = r(c.Name)
Next
--  作者：tj-pacer
--  发布时间：2014/5/10 7:47:00
--  

Hi Isy,

 

代码写在哪里？
--  作者：lsy
--  发布时间：2014/5/10 8:20:00
--  
菜单、按钮，都可以。
--  作者：cd_tdh
--  发布时间：2016/7/6 22:17:00
--  
我只有第一列至第五列复制上一行内容怎么改？
--  作者：大红袍
--  发布时间：2016/7/6 23:12:00
--  

 参考代码

 

Dim r As Row = Tables("表A").Current
Dim nr As Row = Tables("表A").addnew
nr.Move(r.Index+1)
Dim cs() As String = {"第一列", "第二列"}
For Each c As String In cs
    nr(c) = r(c)
Next
--  作者：坐看云起
--  发布时间：2017/10/8 18:51:00
--  
太好了，谢谢