主题：依据订单表生成的交叉表列标题有问题

没有办法，因为2008-10-31不是一个有效的列名
用excel报表输出统计结果吧。

可以用代码修改模板，然后再build啊

不用模板，直接用代码生成即可。

下面的代码完全通用，只需改一下表名：

Dim dt As Table = Tables("表名")

Dim Book As New XLS.Book '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

For c As Integer = 0 To dt.Cols.Count -1 '添加列标题

    Sheet(0, c).Value = dt.Cols(c).Caption

Next

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

    For c As Integer = 0 To dt.Cols.Count -1

        Sheet(r +1, c).Value = dt.rows(r)(c)

    Next

Next

'打开工作簿

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "c:\reports\test.xls"

Proc.Start()