Foxtable(狐表)用户栏目专家坐堂 → 正负值问题


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

主题:正负值问题

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
正负值问题  发帖心情 Post By:2022/8/22 7:39:00 [显示全部帖子]

老师能否让生产数量大于订单数量弹窗提示,同时正负值变颜色,谢谢
图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 9:30:00 [显示全部帖子]

谢谢老师

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 9:51:00 [显示全部帖子]

还是出现一点问题,上面代码只能在订单数量修改数量发生弹窗提示,生产数量修改没发生弹窗提示

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 10:28:00 [显示全部帖子]

对,时表达列,表达列能超出订单数量能提示吗?


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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 10:35:00 [显示全部帖子]

当我们在订单明细表输入数量时,订单表的数量会自动更新,但是上面的代码永远不会执行,因为数量是一个表达式列,不会触发事件。
我们需要在订单明细表的
DataColChanged事件加上代码:

If e.DataCol.name = "数量" Then
    Dim 
pr As DataRow = e.DataRow.GetParentRow("订单"'找出对应的父行
    If 
pr IsNot Nothing Then
        DataTables(
"订单").DataCols("数量").RaiseDataColChanged(pr)  '通知系统此父行的数量列发生了改变,触发DataColChanged事件
    End If
End If


按照这方法也生产数量变化也没提示



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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 10:36:00 [显示全部帖子]

老师能否直接教我怎么设置?

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 10:46:00 [显示全部帖子]

是个人记件的生产的数量=合计数量表达列:IsNull([数量],0  ) + IsNull([数量1],0) + IsNull([数量2],0) + IsNull([数量3],0) + IsNull([数量4],0) + IsNull([数量5],0)

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 10:52:00 [显示全部帖子]

下面截图
图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 11:10:00 [显示全部帖子]

弹窗提升错误
图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2776 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/8/22 11:35:00 [显示全部帖子]

If e.DataCol.Name = "数量合计" OrElse e.DataCol.Name = "订单数量" OrElse e.DataCol.Name = "数量", "数量1", "数量2", "数量3", "数量4", "数量5"Then Then 
    If (e.DataRow("数量") + e.DataRow("数量1") + e.DataRow("数量2") + e.DataRow("数量3") + e.DataRow("数量4") + e.DataRow("数量5")) > e.DataRow("订单数量") Then
        messagebox.show("注意:你输入生产数量已经超出订单数值!!!!")
    End If
End If
图片点击可在新窗口打开查看

 回到顶部
总数 13 1 2 下一页