Foxtable(狐表)用户栏目专家坐堂 → 跨表同步问题


  共有2980人关注过本帖树形打印复制链接

主题:跨表同步问题

帅哥哟,离线,有人找我吗?
tingke
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1371 威望:0 精华:0 注册:2017/1/10 20:17:00
跨表同步问题  发帖心情 Post By: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事件
Dim dr As DataRow = DataTables("账单").Find("客户名 = '" & e.DataRow("客户名") & "'")
If dr IsNot Nothing Then
    dr.Delete()
End If
可是出现问题,不能完全同步
补货表
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180511215300.png
图片点击可在新窗口打开查看
账单表

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180511215329.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/5/11 21:42:44编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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事件看不出什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
tingke
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1371 威望:0 精华:0 注册:2017/1/10 20:17:00
回复:(有点蓝)确定上面的是datarowdeleting事件?D...  发帖心情 Post By:2018/5/11 21:42:00 [只看该作者]

抱歉没注意,粘贴错误这个是
Dim dr As DataRow = DataTables("账单").Find("客户名 = '" & e.DataRow("客户名") & "'")
If dr IsNot Nothing Then
    dr.Delete()
End If
[此贴子已经被作者于2018/5/11 21:42:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
tingke
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1371 威望:0 精华:0 注册:2017/1/10 20:17:00
回复:(有点蓝)确定上面的是datarowdeleting事件?D...  发帖心情 Post By:2018/5/11 21:54:00 [只看该作者]

有没有其他跨表同步方案或者其他代码?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/11 22:27:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/1453.htm

http://www.foxtable.com/webhelp/scr/2490.htm

 回到顶部