以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教自动复制行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95680)
--  作者：huaqing8828
--  发布时间：2017/1/30 12:41:00
--  请教自动复制行
If e.DataCol.Name = "订单状态" AndAlso e.DataRow("订单状态") = True Then
    Dim nma() As String = { "生产计划", "生产批号" } 
    Dim nmb() As String = { "生产计划", "生产批号" } 
    Dim dr As DataRow = DataTables("车间排产表").AddNew
 For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If
这是自动复制到新增加的行，能否复制到制定的行
--  作者：有点色
--  发布时间：2017/2/2 10:30:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0396.htm