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

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

那就是小事一桩了：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table