请教老师：统计表统计时有两个统计条件，下面的代码要怎么修改
统计表
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
加好友 
发短信
Post By：2023/9/8 19:19:00 [只看该作者]
