以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  以下导出按钮能加一个进度条吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121636)
--  作者：xxfoxtable
--  发布时间：2018/7/10 21:01:00
--  以下导出按钮能加一个进度条吗？

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.Format = "Excel" \'导出格式为Excel
    ex.SourceTableName = "采购流水账" \'指定导出表
    ex.Fields = "日期,采购人,项目名称,费用分类,计价单位,单价,数量,小计,备注,报销状态,费用归属,加工厂结账" \'按此顺序导出指定的字段
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Filter = Tables("采购流水账").Filter
    ex.Export() \'开始导出
End If
--  作者：有点蓝
--  发布时间：2018/7/10 21:05:00
--  
加不了
--  作者：有点甜
--  发布时间：2018/7/11 9:11:00
--  

可以自己写代码导出

 

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