Foxtable(狐表)用户栏目专家坐堂 → 跨表统计自动更新


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

主题:跨表统计自动更新

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
跨表统计自动更新  发帖心情 Post By:2023/9/8 19:19:00 [只看该作者]

请教老师:统计表统计时有两个统计条件,下面的代码要怎么修改
统计表
If e.DataCol.Name = "编号" Then
    Dim Filter As String = "编号 = '" & e.DataRow("编号") & "' And 炉批号 = '" & e.DataRow("炉批号") & "'"
    e.DataRow("到货_重量Kg") = val(DataTables("外观尺寸检查记录").Compute("Sum(到货_重量Kg)", Filter))
End If

订单表
Select Case e.DataCol.Name
    Case "到货_重量Kg"
        Dim pr As DataRow
        pr = DataTables("原材料入厂检验").Find("编号 = '" & e.DataRow("编号") & "' And 炉批号 = '" & e.DataRow("炉批号") & "'")
        If pr IsNot Nothing Then
            DataTables("原材料入厂检验").DataCols("编号").RaiseDataColChanged(pr)
        End If
End Select


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


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

代码没有问题呀。测试有什么错误?

 回到顶部