主题：[求助]如何实现复制单据

Select Case e.DataCol.Name
 Case "客户","产品"
    Dim kh As String = e.DataRow("客户")
    Dim cp As String = e.DataRow("产品")
    Dim tj = "客户 = '" & kh & "' And 产品 = '" & cp & "' "
    If kh >"" Andalso cp> "" Then
        If DataTables("表B").Find(tj) Is Nothing Then
            Dim dr As DataRow = DataTables("表B").AddNew()
            dr("客户") = kh
            dr("产品") = cp
        End If
    End If
End Select

   这个代码是在A表输入客户,产品的同时,在B表新增行输入客户,产品.

Dim r1 As Row = Tables("父表").Current
Dim r2 As Row=  r1.Clone
For Each r3 As DataRow = r1.DataRow.GetChildRows("子表")
    Dim  r4 As Row = Tables("子表").AddNew 
    For c As Col In Tables("子表").Cols
        r4(c.Name) = r3(c.Name)
    Next
    r4("子表关联列") = r2("父表关联列")
Next

  试试这个,我以前保存下来的.