主题：借鉴“跨表数据引用和统计示例”中的不解。。

Select Case e.DataCol.Name
    Case "型号"

        if e.DataRow("型号") isnot nothing 
            Dim Filter As String = "型号 = '" & e.DataRow("型号") & "'"
            e.DataRow("本月购总数量") = DataTables("表A").Compute("Sum(购入数量)", Filter)
        end if

End Select