主题：竖表转水平表代码有问题

Dim tb3 As Table = Tables("标录分析_Table3")

Dim tb4 As Table = Tables("标录分析_Table4")

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("年", Gettype(String), 32)

dtb.AddDef("月", Gettype(String), 32)

For Each nm As String In tb3.DataTable.GetValues("随机摸球法_中标球号")

    dtb.AddDef(nm, Gettype(Double))

Next

tb4.DataSource = dtb.BuildDataSource
For Each nm As String() In tb3.DataTable.GetValues("年|月")

    Dim dr1 As Row = tb4.AddNew()

    dr1("年") = nm(0)

    dr1("月") = nm(1)

    For Each dr2 As DataRow In tb3.DataTable.Select("年 = '" & nm(0) & "' And 月 = '" & nm(1) & "'")

        dr1(dr2("随机摸球法_中标球号")) = dr2("记录数")

    Next

Next

Dim tb1 As Table = Tables("标录分析_Table1")
Dim tb2 As Table = Tables("标录分析_Table2")
Dim dtb As New DataTableBuilder("水平表")
dtb.AddDef("年", Gettype(String), 32)
dtb.AddDef("月", Gettype(String), 32)
For Each nm As String In tb1.DataTable.GetValues("中标球号")
    dtb.AddDef("c" & nm, Gettype(Double), "", nm)
Next
tb2.DataSource = dtb.BuildDataSource
For Each nm As String() In tb1.DataTable.GetValues("年|月")
    Dim dr1 As Row = tb2.AddNew()
    dr1("年") = nm(0)
    dr1("月") = nm(1)
    For Each dr2 As DataRow In tb1.DataTable.Select("年 = '" & nm(0) & "' And 月 = '" & nm(1) & "'")
        dr1("c" & dr2("中标球号")) = dr2("记录数")
    Next
Next