Foxtable(狐表)用户栏目专家坐堂 → [求助]提醒禁止编辑


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

主题:[求助]提醒禁止编辑

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


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]提醒禁止编辑  发帖心情 Post By:2019/11/13 22:35:00 [只看该作者]

老师,如果一批次入 库数量10 出库11下面代码不提醒或禁止编辑


If e.DataCol.Name = "出库_数量" Then
    Dim dr As DataRow = DataTables("入库明细").Find("入库单编号明细 = '" & e.DataRow("入库批次号") & "'")
    If dr IsNot Nothing Then
        If dr("库存") < e.NewValue Then
            Messagebox.Show("库存不够!")
            e.Cancel = True
        Else
            dr("入库_数量") = dr("库存") - e.NewValue
        End If
    End If
End If

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


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/14 9:35:00 [只看该作者]

代码有什么问题?

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


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/14 12:10:00 [只看该作者]

老师,上面代码,有时候入库第一个批次在出库表的第一次出库时还是可以出现负数的。

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


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/14 13:50:00 [只看该作者]

出现负数未必是这里的问题。很多情况都有可能出现这种问题的。比如并发的时候,2台电脑同时下单。
另外上面的“入库_数量”是不是应该改成“出库_数量”?

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/14 16:27:00 [只看该作者]

老师,关联表保存数据下面代码不得。



'If Tables("出库.出库明细").HasChanges Then
    'If MessageBox.Show("修改后请保存数据", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes  Then
        'Tables("出库.出库明细").save
    'Else
       ' Tables("出库.出库明细").RejectChanges
    'End If
'End If

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


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/14 16:40:00 [只看该作者]

Tables("出库.出库明细")

改为

dataTables("出库明细")

 回到顶部