Foxtable(狐表)用户栏目专家坐堂 → datacolchanged触发其他表有时候会丢数据


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

主题:datacolchanged触发其他表有时候会丢数据

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


加好友 发短信
等级:幼狐 帖子:82 积分:704 威望:0 精华:0 注册:2019/1/9 15:59:00
datacolchanged触发其他表有时候会丢数据  发帖心情 Post By:2024/5/29 19:00:00 [只看该作者]

用的阿里云sql数据库,在上面有三个表《采购入库》,《库存明细》,《入库统计》。《采购入库》表的“库房确认”列,由待入库—>已入库或者已入库—>待入库都会触发datacolchanged事件,从而对《库存明细》,《入库统计》两个表进行增减行操作。
目前遇到的问题是:datacolchanged事件发生了,但是没有对《库存明细》,《入库统计》两个表进行操作,或者只对其中的一个表进行了操作。不是经常发生,极偶尔才出现,请专家帮看看这样设计有问题吗?

《采购入库》表的datacolchanged代码如下:
If e.DataCol.Name = "库房确认" Then
    If e.OldValue = "待入库" And e.NewValue = "已入库" Then
        '在《采购入库》表中的变化
        e.DataRow("入库日期") = Date.Today '库房确认,由待入库变为已入库,那么当前的日期就为入库日期
        e.DataRow("操作人") = User.Name
        e.DataRow.Save()
        '在《入库统计》表中的变化
        Dim dr As DataRow = DataTables("入库统计").AddNew
        dr("入库日期") = e.DataRow("入库日期")
        dr("入库序号") = e.DataRow("入库序号")
        dr("名称") = e.DataRow("名称")
        dr("型号") = e.DataRow("型号")
        dr("数量") = e.DataRow("数量")
        dr("单价") = e.DataRow("单价")
        dr.Save()
        '在《库存明细》表中的变化
        Dim kdr As DataRow = DataTables("库存明细").AddNew
        kdr("入库日期") = e.DataRow("入库日期")
        kdr("入库序号") = e.DataRow("入库序号")
        kdr("名称") = e.DataRow("名称")
        kdr("型号") = e.DataRow("型号")
        kdr("数量") = e.DataRow("数量")
        kdr("单价") = e.DataRow("单价")
        kdr.Save()
    End If
    '事先需要datacolchanging 判断物料是否还在,以及数量是否和入库时一致,如果不在或者不一致,不允许变更。
    If e.OldValue = "已入库" And e.NewValue = "待入库" Then
        DataTables("库存明细").SQLDeleteFor("入库序号 = '" & e.DataRow("入库序号") & "'")
        DataTables("入库统计").SQLDeleteFor("入库序号 = '" & e.DataRow("入库序号") & "'")'入库统计只是起到记录的作用,不用判断
        e.DataRow("操作人") = Nothing
        e.DataRow("入库日期") = Nothing
        e.DataRow.Save()
    End If
End If



图片点击可在新窗口打开查看此主题相关图片如下:datacolchanged.jpg
图片点击可在新窗口打开查看




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


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 8:50:00 [只看该作者]

估计是用户操作不当,比如"库房确认"单元格原来的值是"待入库",用户不是在单元格直接录入"已入库",而有可能是按del键清空单元格,再录入"已入库",这时事件会触发2次,先是【e.OldValue = "待入库" And e.NewValue = nothing】,再是【e.OldValue = nothing And e.NewValue = "已入库"】。还有一种可能是旧的状态不是"待入库",而是其它。

考虑在datacolchanging 加个判断,如果旧状态不是"待入库",就不能把状态改为"已入库"

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


加好友 发短信
等级:幼狐 帖子:82 积分:704 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2024/5/30 9:43:00 [只看该作者]

谢谢蓝老师!图片点击可在新窗口打开查看

 回到顶部