导出代码如下： Dim dst1 As Table = Tables("工资明细表_Table1")
If dst1.count>0 Then
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\计件工资.xls")
Dim fl As String = dlg.FileName
'book.MergeFree =False
Book.Build()
Book.Save(fl)
End If
Else
MessageBox.Show("请先查询!!!")
End If
excel模板设置如下图：
此主题相关图片如下：1.jpg
七八千行导出要两分钟多，上万就三分钟以上了，导出过程内存也上升很快，不知道问题出在哪里，还是说就是这样的，麻烦各位老师解答一下，谢谢了
[此贴子已经被作者于2017/9/7 14:20:45编辑过]
加好友 
发短信
Post By：2017/9/7 10:54:00 [显示全部帖子]
