主题：主表怎么取子表的字段进行计算

代码放到物料明细表的datacolchanged事件

Select Case  e.DataCol.name

    Case  "分类"

        If e.DataRow.isnull("分类") Then

            e.DataRow("数量") = Nothing

        Else

            Dim sum As Integer

            For Each ss As String In e.DataRow("分类").split(",")

                Dim s As String = "斜梁数量_" & e.newvalue

                If Tables("光伏物料清单").cols.contains(s)

                    sum = sum + Tables("光伏物料清单").Compute("sum(" & s & ")", 模板编号 = '  e.DataRow("模板编号")' )

                End If

            Next

            e.DataRow("数量")=  sum

        End If

End Select