主题：表a写入表b的问题

请教老师，我想把表a字段内容写入表b，表b如果有表a相同字段内容的话，只是补充这一行中空白的字段内容。
此主题相关图片如下：表a.jpg


此主题相关图片如下：表b.jpg

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

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

例如：表b中有联系人1，电话111111 ，就只在这行中加入单位

         表B中有单位2，就在这行中填入相应的联系人与电话

 参考

http://www.foxtable.com/webhelp/scr/2490.htm

表A的DataColChanged事件，写代码

Select Case e.DataCol.name
    Case "单位", "联系人", "电话"
        If e.DataRow.IsNull("单位") = False AndAlso e.DataRow.isnull("联系人") = False Then
            Dim dr As DataRow = DataTables("表B").Find("单位 = '" & e.DataRow("单位") & "' and 联系人 = '" & e.DataRow("联系人") & "'")
            If dr Is Nothing Then
                dr = DataTables("表B").addnew
                dr("单位") = e.DataRow("单位")
                dr("联系人") = e.DataRow("联系人")
            End If
            dr("电话") = e.DataRow("电话")
        End If
End Select