主题：交叉统计

Dim t As Table = Tables("窗口1_table1")

Dim dt As DataTable = DataTables("a")

Dim b As new  CrossTableBuilder("统计表1",dt)

b.HGroups.AddDef("仓库名称")

b.HGroups.AddDef("一级码")

b.HGroups.AddDef("品名")

b.HGroups.AddDef("规格型号")

b.HGroups.AddDef("单位")

b.VGroups.AddDef("方向")

b.Totals.AddDef("实收数量")

b.Build

t.DataSource  = b.BuildDataSource

Dim nlist As new Dictionary(of String,String)

For Each c As DataCol In t.DataTable.DataCols

    nlist.Add(c.Caption,c.Name)

Next

With t.DataTable.dataCols

  .Add("库存数量",Gettype(Single),"Isnull([" & nlist("入库") & "],0) - IsNULL([" &  nlist("入库") & "],0)")

End With