1、可以写在窗口afterLoad事件。
2、你应该在DataColChanged事件,也就是编号修改的时候,新增,如代码
If e.DataCol.Name = "编号" Then
Dim ndr As DataRow = DataTables("子表").addNew
ndr("编号") = e.datarow("编号")
End If