[求教]临时表－代码修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

版主，以下代码，将统计结果显示在指定表后，又生成一个统计表2的临时表，能否请您帮修改下，使其不生成统计表2的临时表

Dim bcty As WinForm.ComBoBox = e.Form.Controls("ComboBox11")

Dim dt As DataTable

Dim dtb As New DataTableBuilder("统计表2")

dtb.AddDef("年月", Gettype(String), 16)

dtb.AddDef("人员工资明细_姓名", Gettype(String), 16)

dtb.AddDef("人员工资明细_作业方量", Gettype(Double))

dt = dtb.Build()

'开始逐行累加统计

Dim lst As New Dictionary(of String ,DataRow) '定义一个字典,用于检索每个员工在统计表中对应的行

For Each dr1 As DataRow In DataTables("泵送明细").Select("财务结算年月='" & bcty.text & "'")

If dr1.IsNull("ZYRYZS") = False Then '如果工号列不为空

Dim nms() As String = dr1("ZYRYZS").Split(",") '将工号列内容拆分成数组

Dim v As Double = dr1("泵工方量分配_结算方量") / nms.Length '获得平均之后每个工号的生产数量

For Each nm As String In nms '遍历参与加工此产品的每个工号

Dim dr2 As DataRow

Dim key As String = nm & "|" & dr1("财务结算年月") '这里是关键,由工号和产品组成字典的关键词.

If lst.ContainsKey(key) '如果集合中包括此关键词对应的行

dr2= lst(key) '将此行赋值给变量dr2

Else

dr2 = dt.AddNew() '否则增加一行.

dr2("人员工资明细_姓名") = nm '新增行的工号列设置为此工号

dr2("年月") = dr1("财务结算年月") '设置增行的产品

lst.add(key,dr2) '将新增行添加到字典中,以便接下来检索

End If

dr2("人员工资明细_作业方量") = dr2("人员工资明细_作业方量") + v '加上平均后的产量

End If

Tables("泵送明细_Table8").DataSource = DataTables("统计表2")

蓝版，修改后下面这行不能通过，我将dt改成dtb也不行

dr2 = dt.AddNew() '否则增加一行.

下面的代码，我还是不想让其生成临时表，请您帮我看下，该如何修改呢，谢谢。

Dim bgzql As WinForm.ComBoBox = e.Form.Controls("ComboBox5")

'泵工基础工资

Dim g As New GroupTableBuilder("统计表1", DataTables("泵人档案"))

g.Groups.AddDef("泵工基础工资_年月","年月")

g.Totals.AddDef("泵工基础工资_杨坤怀")

g.Totals.AddDef("泵工基础工资_熊寿春")

g.Totals.AddDef("泵工基础工资_袁文杰")

g.Totals.AddDef("泵工基础工资_田进军")

g.Totals.AddDef("泵工基础工资_董泽明")

g.Totals.AddDef("泵工基础工资_许永明")

g.Totals.AddDef("泵工基础工资_董培")

g.Totals.AddDef("泵工基础工资_许银朋")

g.Totals.AddDef("泵工基础工资_杨永照")

g.Totals.AddDef("泵工基础工资_张建聪")

g.Totals.AddDef("泵工基础工资_张磊")

g.Totals.AddDef("泵工基础工资_任伟君")

g.Totals.AddDef("泵工基础工资_李建伟")

g.Totals.AddDef("泵工基础工资_杨昆奇")

g.Totals.AddDef("泵工基础工资_毕文涛")

g.Totals.AddDef("泵工基础工资_张进标")

g.Totals.AddDef("泵工基础工资_杨士民")

g.Totals.AddDef("泵工基础工资_李旋")

g.Totals.AddDef("泵工基础工资_杨建荣")

g.Totals.AddDef("泵工基础工资_毕忠诚")

g.Totals.AddDef("泵工基础工资_李正栋")

g.Filter = "[泵工基础工资_年月] = '" & bgzql.text & "'"

g.Build()

DataTables("泵送明细_Table6").DataRows.Clear()

For Each adr As DataRow In DataTables("统计表1").DataRows

If adr.IsNull("年月") = False Then

For Each adc As DataCol In DataTables("统计表1").DataCols

If adc.Name.StartsWith("泵工基础工资") AndAlso adr.IsNull(adc.Name) = False Then

Dim bdr As DataRow = DataTables("泵送明细_Table6").AddNew()

bdr("第一列") = adr("年月")

bdr("第二列") = adc.Name.split("_")(1)

bdr("第三列") = adr(adc.Name)

End If

MainTable = Tables("泵送明细_Table6")

主题：[求教]临时表－代码修改