Foxtable(狐表)用户栏目专家坐堂 → [求助]合计子表金额(不用表达式)


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

主题:[求助]合计子表金额(不用表达式)

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
[求助]合计子表金额(不用表达式)  发帖心情 Post By:2018/1/24 10:25:00 [只看该作者]

有如下主表和子表,主表有个已收列 想统计明细表中已收列金额的合计,看帮助中的表达式只能显示选中的数据才显示,我想全部主表都显示,但明细表中有增加明细的时候自动计算合计,请问该如何设计,最好不用表达式

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/24 10:29:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2018/1/29 12:25:00 [只看该作者]

DataColChanged事件

If e.DataCol.Name = "数量" Then
    Dim pr As DataRow
    pr = 
DataTables("统计").Find("产品 = '" & e.DataRow("产品") & "'")
    If
 pr IsNot Nothing 
Then
        pr(
"数量")= pr("数量") + e.NewValue - e.OldValue
    End
 
If
End
 If


这个有个问题就是如果删除订单明细,统计的总数量是不会减少的


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/29 12:33:00 [只看该作者]

以下是引用188802386在2018/1/29 12:25:00的发言:


这个有个问题就是如果删除订单明细,统计的总数量是不会减少的

 

你可以在datarowdeleting事件,查找减去,如


    Dim pr As DataRow
    pr = DataTables("统计").Find("产品 = '" & e.DataRow("产品") & "'")
    If pr IsNot Nothing Then
        pr("数量")= pr("数量") - e.datarow("数量")
    End If


 回到顶部