Dim cnt As integer = 5 '统计表个数 for i as integer = 1 to cnt Dim b As New GroupTableBuilder("统计表" & cnt ,DataTables("订单")) ... next dim dt1 As datatable = DataTables("统计表1") for i as integer =2 to cnt dt1.Combine("型号",dataTables("统计表" & i),"型号") '将销售统计数据组合到进货统计数据 next ...