以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何用代码在同一表里复制多行？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131387)
--  作者：winwtj
--  发布时间：2019/2/25 11:35:00
--  [求助]如何用代码在同一表里复制多行？

如何用代码在同一表里复制多行？有20行2018年的数据，如何一模一样复制下来，但年份改成2019年？
--  作者：有点甜
--  发布时间：2019/2/25 11:47:00
--  

比如

 

Dim drs = DataTables("表A").Select("")
For Each dr As DataRow In drs
    Dim ndr = dr.DataTable.addnew
    ndr("第一列") = dr("第一列")
    ndr("第二列") = dr("第二列")
    ndr("第三列") = dr("第三列")
    ndr("第四列") = 2019
Next
--  作者：winwtj
--  发布时间：2019/2/25 13:27:00
--  
谢谢有点甜老师