主题：[求助]自动复制行,关联行

以下代码是在主表执行的/希望复制主表的行的同时,也能复制子表的行至"入库清单"表

If e.DataCol.Name = "入库" Then
    If e.NewValue = True Then
        Dim nma() As String = {"流水编号","荒料编号","产品名称","产品规格"}
        Dim nmb() As String = {"流水编号","荒料编号","产品名称","产品规格"} 
        Dim dr As DataRow = DataTables("入库").find("流水编号 = '" & e.DataRow("流水编号") & "'")
        If dr Is Nothing Then
            dr = DataTables("入库").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
       
    Else
        Dim dr As DataRow = DataTables("入库").Find("流水编号 = '" & e.DataRow("流水编号") & "'")
        If dr IsNot Nothing Then
            dr.Delete()
        End If
    End If
End If

参考

http://www.foxtable.com/help/topics/0680.htm