主题：两个表同时增加数据时，在已经存在行上增加数据如何实现？狐爸快来救救小狐吧！

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

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