以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]临时表排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59735)
--  作者：建筑人生
--  发布时间：2014/11/10 8:54:00
--  [求助]临时表排序

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:010.xls

 

 

 

临时表导出EXCEL报表排序不是看到的顺序，那排序要怎么做

以下为临时表生成代码


 

SystemReady = False  \'关闭刷新
Try
    With  DataTables("临时表")
        .StopRedraw
       
        \'DataTables("临时表").DataRows.Clear   \'先清空临时表
        .DataRows.Clear   \'先清空临时表
       
        For Each r As Row In Tables("电气工程量").Rows  \'遍历电气工程量的各行
            If r.IsNull("电线_规格1") = False Then   \'先判断型号1是否为空
                Dim r1 As Row = Tables("临时表").AddNew
                r1("单项工程名称") = r("单项工程名称")
                r1("单位工程名称") = r("单位工程名称")
                r1("分项工程名称") = r("分项工程名称")
               
                r1("型号规格") = r("电线_规格1")
                r1("清单数量") = r("清单_电线1合计")
                r1("定额数量") = r("定额_电线1合计")
                r1("备注") = r.Index+1
            End If
            If r.IsNull("电线_规格2") = False Then   \'先判断型号2是否为空
                Dim r2 As Row = Tables("临时表").AddNew
               
                r2("单项工程名称") = r("单项工程名称")
                r2("单位工程名称") = r("单位工程名称")
                r2("分项工程名称") = r("分项工程名称")
               
                r2("型号规格") = r("电线_规格2")
                r2("清单数量") = r("清单_电线2合计")
                r2("定额数量") = r("定额_电线2合计")
                r2("备注") = r.Index+1
            End If
            If r.IsNull("管道规格") = False Then   \'先判断型号2是否为空
                Dim r3 As Row = Tables("临时表").AddNew
               
                r3("单项工程名称") = r("单项工程名称")
                r3("单位工程名称") = r("单位工程名称")
                r3("分项工程名称") = r("分项工程名称")
               
                r3("型号规格") = r("管道规格")
                r3("清单数量") = r("管道合计")
                r3("定额数量") = r("管道合计")
                r3("备注") = r.Index+1
            End If
        Next
       
        .ResumeRedraw
    End  With
Catch ex As Exception
    MessageBox.Show("计算错误")
End try
SystemReady = True  \'关闭刷新

Dim g As New GroupTableBuilder("汇总表", DataTables("临时表"))
g.Groups.AddDef("单项工程名称")
g.Groups.AddDef("单位工程名称")
g.Groups.AddDef("分项工程名称")

g.Groups.AddDef("型号规格")
g.Totals.AddDef("清单数量")
g.Totals.AddDef("定额数量")
g.Build()
MainTable = Tables("汇总表")

[此贴子已经被作者于2014-11-10 8:54:16编辑过]
--  作者：Bin
--  发布时间：2014/11/10 8:55:00
--  
用SaveExcel是所见既得的顺序.

用模版可以设置模版的到处顺序标签
--  作者：建筑人生
--  发布时间：2014/11/10 8:56:00
--  
以下是引用Bin在2014-11-10 8:55:00的发言：
用SaveExcel是所见既得的顺序.

用模版可以设置模版的到处顺序标签
用模版可以设置模版的到处顺序标签

，这个怎么做

 
--  作者：Bin
--  发布时间：2014/11/10 8:57:00
--  
http://www.foxtable.com/help/topics/1397.htm
--  作者：建筑人生
--  发布时间：2014/11/10 9:00:00
--  
以下是引用Bin在2014-11-10 8:57:00的发言：
http://www.foxtable.com/help/topics/1397.htm

那我想在临时表前面加一列序号列要怎么写代码，谢谢

 
--  作者：Bin
--  发布时间：2014/11/10 9:02:00
--  
http://www.foxtable.com/help/topics/1428.htm
--  作者：建筑人生
--  发布时间：2014/11/10 9:10:00
--  

Dim g As New GroupTableBuilder("汇总表", DataTables("临时表"))


DataTables("临时表").DataCols.Add("序号", Gettype(Integer),,"序号" )
g.Groups.AddDef("单项工程名称")
g.Groups.AddDef("单位工程名称")
g.Groups.AddDef("分项工程名称")

g.Groups.AddDef("型号规格")
g.Totals.AddDef("清单数量")
g.Totals.AddDef("定额数量")
g.Build()
MainTable = Tables("汇总表")

 

我这样写代码错在哪里
--  作者：有点甜
--  发布时间：2014/11/10 9:18:00
--  
DataTables("临时表").DataCols.Add("序号", Gettype(Integer),"","序号" )
--  作者：建筑人生
--  发布时间：2014/11/10 9:26:00
--  

不对，应该在汇总表前面加序号，如果要对汇总表序号列做排序要在哪里写代码

 

 

[此贴子已经被作者于2014-11-10 9:29:51编辑过]
--  作者：有点甜
--  发布时间：2014/11/10 9:30:00
--  

Dim g As New GroupTableBuilder("汇总表", DataTables("临时表"))

g.Groups.AddDef("单项工程名称")
g.Groups.AddDef("单位工程名称")
g.Groups.AddDef("分项工程名称")

g.Groups.AddDef("型号规格")
g.Totals.AddDef("清单数量")
g.Totals.AddDef("定额数量")
g.Build()
DataTables("汇总表").DataCols.Add("序号", Gettype(Integer),"","序号" )
Tables("汇总表").Cols("序号").Move(0)
MainTable = Tables("汇总表")