以文本方式查看主题

-  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=118193)
--  作者：hopestarxia
--  发布时间：2018/4/26 20:56:00
--  请教批量复制
设计了一个固定资产管理程序，
想实现选中某个固定资产后，输入想复制的数量（例50），自动生成除编码不相同外，其他项都想同的50条新的数据。
请问这个如何实现？
--  作者：有点甜
--  发布时间：2018/4/26 21:03:00
--  
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
Dim dr1 As Row = Tables("表A").current
For j As Integer = 1 To 50
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
--  作者：hopestarxia
--  发布时间：2018/4/28 12:33:00
--  
谢谢老师