主题：excel报表格式转换的方法

生成的EXCEL报表最好在一张SHEET中

谢谢老师指点

请教老师：按照八楼生成的报表，如何按照原来的DATATABLE中的材料的[__sortkey]排序，谢谢老师。

我在8楼的代码里加入了SORT排序，生成的表格里面只有菜名，没有后面的材料数量单位。

Dim dtb As New DataTableBuilder("统计") dtb.AddDef("日期", Gettype(DateTime)) dtb.AddDef("早餐", Gettype(String), 500) dtb.AddDef("午餐", Gettype(String), 500) dtb.AddDef("晚餐", Gettype(String), 500) dtb.AddDef("加餐", Gettype(String), 500) dtb.Build() Dim dt As DataTable = DataTables("统计") For Each ds As String In DataTables("供餐明细").GetValues("日期") Dim d As Date = cdate(ds) Dim dr As DataRow = dt.AddNew dr("日期") = d For Each cb As String In DataTables("供餐明细").GetValues("餐别","日期=#" & d & "#") Dim str As String = "" For Each cm As String In DataTables("供餐明细").GetValues("菜名","日期=#" & d & "# and 餐别='" & cb & "'","[_sortkey]") Dim s2 As String = DataTables("供餐明细").SQLGetComboListString("材料 & 数量 & 单位","日期=#" & d & "# and 餐别='" & cb & "' and 菜名='" & cm & "'","[_sortkkey]") str = str & vbcrlf & cm & ": " & s2.Replace("|",",") Next str = str.Trim(vbcr,vblf) dr(cb) = str Next Next Tables("统计").AutoSizeRows MainTable = Tables("统计")

,"[_sortkkey]"，加入的内容。

发了两个相同的,"[_sortkkey]"内容，加第一个不会出错，加第二个就会出现导不出材料数量单位的现象。

就是在八楼的代码中加入了两个,"[_sortkkey]"。

老师，上面的示例第一参数是菜名，第二参数是筛选日期和餐别，第三参数是排序。

Dim s2 As String = DataTables("供餐明细").SQLGetComboListString("材料 & 数量 & 单位","日期=#" & d & "# and 餐别='" & cb & "' and 菜名='" & cm & "'","[_sortkkey]") 就是这一句，加了第三参数就出现问题。