以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  只导出查询的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99782)
--  作者：seal51
--  发布时间：2017/4/26 17:40:00
--  只导出查询的数据

有一个订单明细表， 做了一个查询窗口， 一个导出按钮， 一个EXCEL模板， 如何做到只导出查询的内容，就像系统命令， Syscmd.Project.ExportToExcel()， 跳出一个选择窗口，选择导出可见行一样呢？

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\OrderList.xls")
Dim fl As String = ProjectPath & "Reports\\OrderList.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
--  作者：有点色
--  发布时间：2017/4/26 17:47:00
--  
 Dim dlg As new SaveFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\OrderList.xls")
    Dim fl As String = dlg.FileName
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = fl
    Proc.Start()
End If
--  作者：seal51
--  发布时间：2017/4/26 17:55:00
--  

查询有多行数据， 只导出了选定的那一条数据， 必须选定全部内容才能导出
--  作者：seal51
--  发布时间：2017/4/26 17:56:00
--  
老师理解我的问题有误， 我的意思是一键导出所有查询出来的数据到EXCEL模板里
--  作者：有点色
--  发布时间：2017/4/26 18:05:00
--  
以下是引用seal51在2017/4/26 17:55:00的发言：

查询有多行数据， 只导出了选定的那一条数据， 必须选定全部内容才能导出

 

把条件设置成<All>即可

 

http://www.foxtable.com/webhelp/scr/0201.htm