主题：[求助]临时表排序

下载信息  [文件大小：   下载次数： ]

点击浏览该文件: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("汇总表")

用SaveExcel是所见既得的顺序.

，这个怎么做

 

http://www.foxtable.com/help/topics/1397.htm

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

 

http://www.foxtable.com/help/topics/1428.htm

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("汇总表")

 

我这样写代码错在哪里

DataTables("临时表").DataCols.Add("序号", Gettype(Integer),"","序号" )

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

 

 

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("汇总表")