主题：book.AddDataTable 如何同时按编号排序呢？

 book.AddDataTable  如何同时按编号排序呢？麻烦老师帮忙看看   谢谢！

在生成表数据之前，进行一次按编号进行升序排列

当前代码如下：

Dim e As RequestEventArgs = rq.e
Dim dt1 As Date=e.Values("开始日期")
Dim dt2 As Date=e.Values("结束日期")
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim Book As New XLS.Book(ProjectPath & "Attachments\台账.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & dt1.Year & "台账" & time &".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
 book.AddDataTable("台账","主数据源","Sele ct * from {台账} where 时间 >= '" & dt1 & "' And 时间 <= '" & dt2 & "'")
End if

Book.Build() '生成报表
Book.Save(fl)