Dim dt As DataTable
DataTables("zzmjcomtxmxhz").LoadFilter = "[单号] = '" & dth & "' "
DataTables("zzmjcomtxmxhz").Load()
dt=DataTables("zzmjcomtxmxhz")
Dim g As New CrossTableBuilder("统计表10", dt)
g.HGroups.AddDef("MGBH")
g.VGroups.AddDef("xd")
g.Totals.AddDef("sl", "sl")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0
g.Subtotal = True
'g.FromServer = True
g.Build()
'Tables.( = Tables("统计表10")
e.Form.Controls("Table6").Table.DataSource =g.BuildDataSource
Tables("线条下料计划_Table6").AutoSizeCols
Tables("线条下料计划_Table6").Cols.Frozen = 1
这里代码有问题 我为了获取当前zzmjcomtxmxzb.zzmjcomtxmxhz子表数据把子表 DataTables("zzmjcomtxmxhz")从新按照条件加载了
代码应该是需要优化一下 麻烦指导一下