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

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表新增行输入客户,产品.