Foxtable(狐表)用户栏目专家坐堂 → 跨表统计代码


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

主题:跨表统计代码

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


加好友 发短信
等级:幼狐 帖子:197 积分:1351 威望:0 精华:0 注册:2019/3/31 11:25:00
跨表统计代码  发帖心情 Post By:2019/8/27 10:05:00 [只看该作者]

老师好! 下面两个是跨表统计的自动更新配套代码,如果要同时满足产品型号两列进行统计,代码怎么改呀



统计表DataColChanged事件代码:

If e.DataCol.Name = "产品" Then 
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & e.NewValue & "'")
End
 
If


订单表的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


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


加好友 发短信
等级:超级版主 帖子:105478 积分:536381 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/27 10:33:00 [只看该作者]

统计表DataColChanged事件代码:

If e.DataCol.Name = "产品" orelse e.DataCol.Name = "型号" Then 

    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & e.DataRow("产品") & "' and 型号='" & e.DataRow("型号") & "'")

End If


订单表的DataColChanged事件代码:

If e.DataCol.Name = "数量" Then
    Dim pr As DataRow
    pr = 
DataTables("统计").Find("产品 = '" & e.DataRow("产品") & "' and 型号='" & e.DataRow("型号") & "'")

    If pr IsNot Nothing Then
        pr(
"数量")= pr("数量") + e.NewValue - e.OldValue
    End
 
If
End
 If


 回到顶部