主题：数据同步更新问题

表A新增数据时，表B同步增加数据。表A格式不完全和表B一样，表B需要几列数据依靠表A更新,表B进行更改时，表A不发生变化 那位大神帮看下应该怎么编写

参考

 

http://www.foxtable.com/help/topics/2490.htm

 

列名不同的话，

 

dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

 

就改成

 

dr("B表某列1") = e.DataRow("A表某列1")

dr("B表某列2") = e.DataRow("A表某列2")

的确可以 但表A删除的时候 我不想让表B跟着删 还有就是更改产品编号的话 表B会另起一行而不是在之前那行

你把 DataRowDeleting 的代码去掉即可。

我没写 DataRowDeleting 的代码 也删除表A 表B也会删除掉的

你做个例子上传上来测试一下。

还有就是更改产品编号的话 表B会另起一行而不是在之前那行

看6楼。

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

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

Select Case e.DataCol.name
    Case "第一列"
        Dim dr As DataRow
        If e.OldValue = Nothing
            dr = DataTables("表B").Find("第一列 = '" & e.newvalue & "'")
        Else
            dr = DataTables("表B").Find("第一列 = '" & e.OldValue & "'")
        End If
        If dr Is Nothing Then
            dr = DataTables("表B").AddNew()
            dr("第一列") = e.DataRow("第一列")
            dr("第二列") = e.DataRow("第二列")
            dr("第三列") = e.DataRow("第三列")
        Else
            dr("第一列") = e.DataRow("第一列")
        End If
    Case "第三列","第二列"
        Dim dr As DataRow = DataTables("表B").Find("第一列 = '" & e.DataRow("第一列") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select