主题：动态绑定临时表代码出错

tb1.DataSource = dtb.BuildDataSource()

改成

tb1.DataSource = DataTables("表BB")

或者

Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
Dim g As New GroupTableBuilder("社保统计表1", DataTables("年度社保库"))
Dim dt As DataTable
g.Groups.AddDef("年度")
g.Groups.AddDef("月份")
g.Groups.AddDef("缴纳方式")
g.Totals.AddDef("姓名", AggregateEnum.Count, "人数")
g.FromServer = True
dt = g.Build(True)

Dim dtb As New DataTableBuilder("表BB")
dtb.AddDef("年度",Gettype(Integer),10)
dtb.AddDef("月份",Gettype(Integer),10)
For Each v As String In dt.GetValues("缴纳方式")
    dtb.AddDef(v, Gettype(Double))
Next
tb1.DataSource = dtb.BuildDataSource()

For Each v As String() In dt.GetValues("年度|月份")   'DataTables("社保统计表1").
    Dim dr1 As DataRow = tb1.DataTable.AddNew()
    dr1("年度") = v(0)
    dr1("月份") = v(1)
    For Each dr2 As DataRow In dt.Select("年度 = " & v(0) & " And 月份 = " & v(1))
        dr1(dr2("缴纳方式")) = dr2("人数")
    Next
Next
tb1.DataTable.DataCols.Add("总数",Gettype(Double),"[标准缴纳] + [公司统缴]")