以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 非关联表之间的数据同步,同步不了 (http://foxtable.net/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 -- 您看一下,
|
||||
-- 作者:有点蓝 -- 发布时间: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 -- 在产品表中增加,库存表没有增加数据,只添加了空行
|
||||
-- 作者:有点蓝 -- 发布时间:2020/9/23 13:30:00 -- 通过编号关联的,需要添加编号才会增加数据 |