主题：[求助]临时表代码问题（已解决）

将以下代码放在命令窗口中执行，效果依旧，

Dim rq As Date = Forms("实时采集").Controls("DateTimePicker1").Value

Dim bz As String = Forms("实时采集").Controls("ComboBox1").Text

Dim pc As String = Forms("实时采集").Controls("ComboBox2").Text

Dim cpkh As String = Forms("实时采集").Controls("TextBox1").Text

Dim drf As DataRow = DataTables("采集模板").Find("班组 = '"& bz &"'")

Dim bzid As String = drf("班组ID")

Dim sql As String

sql = "Select CycleTime As 日期,StructureID As 班组ID,pc As 批次,jp,TerminalID As 车位ID,PersonnelID As 人员ID,StyleID As 款式ID,AVG(CompleteCount) As 平均,SUM(SAM * CompleteCount) As 定额累计,SUM(UseTime1) As 用时累计,SUM(NormalPrice2 * CompleteCount) As 实现产值 F rom {BundleCardRecord_2} Where CycleTime = #"& rq &"# And StructureID = "& bzid &" And pc = "& pc &" GROUP BY CycleTime,StructureID,StyleID,pc,jp,TerminalID,PersonnelID"

Dim b2 As New GroupTableBuilder("实时信息",sql,"MES")

b2.Groups.AddDef("日期",DateGroupEnum.None)

b2.Groups.AddDef("班组ID")

b2.Groups.AddDef("批次")

b2.Groups.AddDef("车位ID")

b2.Groups.AddDef("人员ID")

b2.Groups.AddDef("款式ID")

b2.Totals.AddDef("平均","完成产量")

b2.Totals.AddDef("定额累计")

b2.Totals.AddDef("用时累计")

b2.Totals.AddDef("实现产值")

b2.Build

MainTable = Tables("实时信息")