以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  非关联表之间的数据同步,同步不了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154682)

--  作者:第一次学软件
--  发布时间:2020/9/23 11:20:00
--  非关联表之间的数据同步,同步不了
按照帮助文件“非关联表之间的数据同步“做的这个实例,在产品表中增加的,在库存中不会增加,只是改数据?
--  作者:有点蓝
--  发布时间:2020/9/23 11:26:00
--  
帮助里有增加的代码的。具体怎么做的,贴出自己代码说明
--  作者:第一次学软件
--  发布时间:2020/9/23 12:02:00
--  
您看一下,

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.table


--  作者:有点蓝
--  发布时间:2020/9/23 12:09:00
--  
Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
            dr("单价") = e.DataRow("单价")
            
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格","单价"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

--  作者:有点蓝
--  发布时间:2020/9/23 12:10:00
--  
看看:http://www.foxtable.com/webhelp/topics/2242.htm
--  作者:第一次学软件
--  发布时间:2020/9/23 12:54:00
--  
在产品表中增加,库存表没有增加数据,只添加了空行

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.table


--  作者:有点蓝
--  发布时间:2020/9/23 13:30:00
--  
通过编号关联的,需要添加编号才会增加数据