主题：请帮助改一下代码

请帮助改一下代码

Dim g As New GroupTableBuilder("统计表1", DataTables("坯布输入"))
Dim dt1 As fxDataSource
g.Groups.AddDef("年")
g.Groups.AddDef("月")
g.Groups.AddDef("产品名称")
g.Totals.AddDef("匹数", "下机坯布_累计")
g.Totals.AddDef("总长", "长度_累计")
g.Totals.AddDef("织造车间扣分", "扣分_累计")
g.Totals.AddDef("总重", "重量_累计")
g.Decimals = 2
g.FromServer = True
dt1 = g.BuildDataSource()

Dim b As New GroupTableBuilder("统计表2", DataTables("坯布输入"))
Dim dt2 As fxDataSource
b.Filter = "日期 >= #" & Date.Today & "# "
b.Groups.AddDef("年")
b.Groups.AddDef("月")
b.Groups.AddDef("产品名称")
b.Totals.AddDef("匹数", "下机坯布_本日")
b.Totals.AddDef("总长", "长度_本日")
b.Totals.AddDef("织造车间扣分", "扣分_本日")
b.Totals.AddDef("总重", "重量_本日")
b.Decimals = 2
b.FromServer = True
dt2 = b.BuildDataSource()

Dim nms As String() = { "年","月","产品名称" } '指定连接列
dt1.Combine(nms,dt2,nms)
Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table

 

 

上列代码执行后出现下列情形

 

 

此主题相关图片如下：168.jpg

 

如何修改代码让列重新排一下位置，出现下图

 

 

此主题相关图片如下：169.jpg

谢谢，完成