代码改成
Dim g As New CrossTableBuilder("统计表1", DataTables("毛坯工序状态表"))
g.HGroups.AddDef("毛坯编码")
g.HGroups.AddDef("生产批次")
g.HGroups.AddDef("批次序号")
g.HGroups.AddDef("成品编码")
g.HGroups.AddDef("成品描述")
g.VGroups.AddDef("加工工序")
g.Totals.AddDef("完成数量", "完成数量")
g.FromServer = True
Tables("毛坯工序明细_Table1").DataSource = g.BuildDataSource()
Dim dt As DataTable = Tables("毛坯工序明细_Table1").DataTable
dt.AddUserStyle("空白", Color.Green, Color.White)
dt.Styles("空白").FontBold = True
dt.GlobalHandler.DrawCell = True