[求教]代码修改－行转列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

版主，我分组统计了图一，然后用行列转换代码生成图二，但是那个泵工的姓名（例如：杨坤怀，熊寿春，等），不知道怎么提到图二的第二列中，请帮忙看下代码，

图一

此主题相关图片如下：微信截图_20190621145225.png

图二

此主题相关图片如下：微信截图_20190621145516.png

代码如下：

Dim g As New GroupTableBuilder("统计表2", DataTables("泵人档案"))

g.Groups.AddDef("泵工基础工资_年月","年月")

g.Totals.AddDef("泵工基础工资_杨坤怀")

g.Totals.AddDef("泵工基础工资_熊寿春")

g.Totals.AddDef("泵工基础工资_袁文杰")

g.Totals.AddDef("泵工基础工资_田进军")

g.Totals.AddDef("泵工基础工资_董泽明")

g.Totals.AddDef("泵工基础工资_许永明")

g.Totals.AddDef("泵工基础工资_董培")

g.Totals.AddDef("泵工基础工资_许银朋")

g.Totals.AddDef("泵工基础工资_杨永照")

g.Totals.AddDef("泵工基础工资_张建聪")

g.Totals.AddDef("泵工基础工资_张磊")

g.Totals.AddDef("泵工基础工资_任伟君")

g.Totals.AddDef("泵工基础工资_李建伟")

g.Totals.AddDef("泵工基础工资_杨昆奇")

g.Totals.AddDef("泵工基础工资_毕文涛")

g.Totals.AddDef("泵工基础工资_张进标")

g.Totals.AddDef("泵工基础工资_杨士民")

g.Totals.AddDef("泵工基础工资_李旋")

g.Totals.AddDef("泵工基础工资_杨建荣")

g.Totals.AddDef("泵工基础工资_毕忠诚")

g.Totals.AddDef("泵工基础工资_李正栋")

g.Filter = "[泵工基础工资_年月] = 201905"

Tables("泵送明细_Table8").DataSource = g.BuildDataSource()

DataTables("泵送明细_Table6").DataRows.Clear()

For Each adr As DataRow In DataTables("泵送明细_Table8").DataRows

If adr.IsNull("年月") = False Then

For Each adc As DataCol In DataTables("泵送明细_Table8").DataCols

If adc.Name.StartsWith("泵工基础工资") AndAlso adr.IsNull(adc.Name) = False Then

Dim bdr As DataRow = DataTables("泵送明细_Table6").AddNew()

bdr("第一列") = adr("年月")

'bdr("第二列") = adr("")

bdr("第三列") = adr(adc.Name)

End If

MainTable = Tables("泵送明细_Table6")

With DataTables("泵送明细_Table6")

.DataCols("第一列").Caption = "年月"

.DataCols("第三列").Caption = "基础工资"

.BuildHeader()

End With

主题：[求教]代码修改－行转列