以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表统计自动更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188222)
--  作者：13775189031
--  发布时间：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
--  作者：有点蓝
--  发布时间：2023/9/9 8:31:00
--  
代码没有问题呀。测试有什么错误？