非关联表之间的数据同步 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataRowAdded事件

e.DataRow.Save

dim dr = DataTables("采购验证表").AddNew()

dr("编号") = e.DataRow("_Identify")

DataColChanged事件

Select Case e.DataCol.name
    Case "编号","设备名称","型号规格","数量","单位","申购人"
        Dim dr As DataRow = DataTables("采购验证表").Find("编号 = '" & e.DataRow("_Identify") & "'")
        If dr IsNot Nothing Then
            dr("设备名称") = e.DataRow("设备名称")
            dr("型号规格") = e.DataRow("型号规格")
            dr("数量") = e.DataRow("数量")
            dr("单位") = e.DataRow("单位")
            dr("申购人") = e.DataRow("申购人")
        End If
End Select

[此贴子已经被作者于2018/1/12 12:06:06编辑过]

主题：非关联表之间的数据同步