老师,如果将“离职员工花名册”这张表加载到ft中再生成报表只需要几秒,但是基于后台数据生成报表时却用了四十几秒。请问老师为什么会差这么多呢??
Dim Book As New XLS.Book(ProjectPath & "Attachments\离职员工花名册.xls")
Dim fl As String = ProjectPath & "Reports\离职员工花名册.xls"
book.AddDataTable("离职员工花名册","测试","Selec t * from {离职员工花名册}")
Dim Sheet As XLS.Sheet
Dim st1 As Date = Date.Now
Book.Build() 耗时:43 秒
MessageBox.Show("耗时: " & (Date.Now - st1).TotalSeconds & "秒")
Sheet = Book.Sheets(0)
Dim t As Integer = sheet.Rows.count\45
For i As Integer = 1 To sheet.Rows.count - 1
If i Mod 45 = 0 Then
sheet(i,1).value = "第" & i\45 & "页/共" & t & "页"
Sheet(i,9).Value = "打印人:" & User.Name
End If
Next
Book.Save(fl)
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()