Select Case e.DataCol.Name
    Case "第一列","第二列"
        Dim kh As String = e.DataRow("第一列")
        Dim kh1 As String = e.DataRow("第二列")
        Dim tj = "第一列 = \'" & kh & "\'And 第二列 =\'" & kh1 & "\'" \'表B的客户
        If kh >"" And kh1> "" Then
            If DataTables("表B").Find(tj) Is Nothing Then
                Dim dr As DataRow = DataTables("表B").AddNew()
                dr("第一列") = kh
                dr("第二列") = kh1
            End If
        End If
End Select

狐爸，以上代码可以实现两表同时输入数据，但是都是新增加一行的，如何在已有行上同步数据呢？谢谢狐爸解答！

不知道你这么做的意义和在，建立关联，用表达式引用数据，不是很简单就能解决吗?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目275.table