主题：统计问题

要用代码生成表格。

Dim dtb As New DataTableBuilder("统计")
Dim dt As DataTable = DataTables("表A")
dtb.AddDef("地区", Gettype(String), 16)
Dim prds As List(of String) = dt.GetValues("型号")
For Each prd As String In prds
    dtb.AddDef(prd & "_最低运费", Gettype(Double))
    dtb.AddDef(prd & "_最低快递", Gettype(string))
Next
dtb.Build()
For Each cus As String In dt.GetValues("地区")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("地区") = cus
    For Each prd As String In prds
        dr(prd & "_最低运费") = dt.Compute("min(费用)","地区 = '" & cus & "' And 型号 = '" & prd & "'")
        dr(prd & "_最低快递") = dt.GetComboListString("快递", "地区 = '" & cus & "' And 型号 = '" & prd & "' and 费用 = " & dr(prd & "_最低运费"))
    Next
Next
MainTable= Tables("统计")

指哪里？如果还有问题，截图说明下。