以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求教]临时表－代码修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136820)
--  作者：hcfbehero
--  发布时间：2019/6/22 10:13:00
--  [求教]临时表－代码修改
版主，以下代码，将统计结果显示在指定表后，又生成一个统计表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 \'加上平均后的产量
        Next
    End If
Next

Tables("泵送明细_Table8").DataSource = DataTables("统计表2")
--  作者：有点蓝
--  发布时间：2019/6/22 10:24:00
--  
Dim dtb As New DataTableBuilder("统计表2")
dtb.AddDef("年月", Gettype(String), 16)
dtb.AddDef("人员工资明细_姓名", Gettype(String), 16)
dtb.AddDef("人员工资明细_作业方量", Gettype(Double))
Tables("泵送明细_Table8").DataSource = dtb.BuildDataSource 
--  作者：hcfbehero
--  发布时间：2019/6/22 11:08:00
--  
蓝版，修改后下面这行不能通过，我将dt改成dtb也不行
 dr2 = dt.AddNew() \'否则增加一行.
--  作者：有点蓝
--  发布时间：2019/6/22 11:11:00
--  
 dr2 = dataTables("泵送明细_Table8")..AddNew()
--  作者：hcfbehero
--  发布时间：2019/6/28 9:32:00
--  
下面的代码，我还是不想让其生成临时表，请您帮我看下，该如何修改呢，谢谢。
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
            Next
        End If
    Next
    
    MainTable = Tables("泵送明细_Table6")
--  作者：有点甜
--  发布时间：2019/6/28 9:49:00
--  

加入代码

 

Tables("统计表1").visible = False