主题：交接数据流的数据统计

交叉统计，如

http://www.foxtable.com/webhelp/scr/0165.htm

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品名称", Gettype(String), 16)
Dim ls As new List(of String)

For Each dr As DataRow In DataTables("abc").Select("日期 is not null", "日期,_Identify")
    Dim lm = dr("输出方") & "_" & dr("工序")
    If ls.contains(lm) = False Then
        dtb.AddDef(lm, Gettype(Double))
        ls.add(lm)
    End If
Next
dtb.Build()
For Each cus As String In DataTables("abc").GetValues("产品名称", "产品名称 is not null")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("产品名称") = cus
    For Each s As String In ls
        Dim prd = s.split("_")
        dr(prd(0) & "_" & prd(1)) = DataTables("abc").Compute("Sum(输出量)","产品名称 = '" & cus & "' And 输出方 = '" & prd(0) & "'")
    Next
Next
MainTable= Tables("统计")

做一个对应的出错的实例发上来测试。