- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 跨表同步问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118835)
-- 发布时间：2018/5/11 20:54:00
-- 跨表同步问题
希望下补货表里输入数据后同步到账单相应列，结果不行，不起确定是否是代码有问题还是表结构的问题，具体问题如图
补货表
datacolchanged事件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("金额")
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
datarowdeleting事件
datarowdeleting事件
Dim dr As DataRow = DataTables("账单").Find("客户名 = \'" & e.DataRow("客户名") & "\'")
If dr IsNot Nothing Then
dr.Delete()
End If
可是出现问题，不能完全同步
补货表
此主题相关图片如下：微信截图_20180511215300.png
此主题相关图片如下：微信截图_20180511215300.png账单表
此主题相关图片如下：微信截图_20180511215329.png
[此贴子已经被作者于2018/5/11 21:42:44编辑过]
-- 发布时间：2018/5/11 21:07:00
--
确定上面的是datarowdeleting事件？
Dim dr As DataRow = DataTables("账单").Find("客户名 = \'" & e.DataRow("客户名") & "\'")
If dr IsNot Nothing Then
dr.Delete
End If
datacolchanged事件看不出什么问题
-- 发布时间：2018/5/11 21:42:00
-- 回复：（有点蓝）确定上面的是datarowdeleting事件？D...
抱歉没注意，粘贴错误这个是
Dim dr As DataRow = DataTables("账单").Find("客户名 = \'" & e.DataRow("客户名") & "\'")
If dr IsNot Nothing Then
dr.Delete()
End If
[此贴子已经被作者于2018/5/11 21:42:21编辑过]
-- 发布时间：2018/5/11 21:54:00
-- 回复：（有点蓝）确定上面的是datarowdeleting事件？D...
有没有其他跨表同步方案或者其他代码？
-- 发布时间：2018/5/11 22:27:00
--
http://www.foxtable.com/webhelp/scr/1453.htm
http://www.foxtable.com/webhelp/scr/2490.htm