主题：[求助]已上传实例

afterLoad事件

e.Form.Controls("Table1").Table.Filter = "第四列 = true"
Dim sum As Double = 0
For Each r As Row In e.Form.Controls("Table1").Table.Rows
    Dim fdr As DataRow = DataTables("表A").Find("产品名称 = '" & r("产品") & "'")
    If fdr IsNot Nothing Then
        sum += fdr("加工时间秒") * r("数量")
    End If
Next
e.Form.Controls("Label1").Text = sum