主题：[求助]复制选定行的子表

Dim t As Table = Tables("生产进度表")
Dim cr As Row = t.Current
Dim nr As Row = t.AddNew
nr("下单日期") = Date.Today
nr("客户") = cr("客户")
nr("款号") = cr("款号")
Tables("生产进度表").Current.Save()

For Each dr As DataRow In cr.DataRow.GetChildRows("子表名")
    Dim cnr As Row = Tables("子表名").addnew
    cnr("编号") = nr("编号")
    cnr("其它列") = cnr("其它列")
Next