- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 进度条 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55790)
-- 发布时间：2014/8/23 12:05:00
-- 进度条
If e.Col.name="信息卡"then
Dim dr As Row = Tables("客户").Current
Dim tm As String = ProjectPath & "Attachments\\客户信息卡.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Attachments" & "\\" & "客户管理" & "\\" & "客户信息卡" & "\\" & dr("部门") & dr("店面等级") & User.name & format(Date.today,"MM月") & "信息卡.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("客户"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
End If
上面代码 导出报表时怎样增加进度条
-- 发布时间：2014/8/23 12:08:00
--
耗时不长没必要吧,你做个文本提示比较简便.
-- 发布时间：2014/8/23 12:36:00
--
不想做窗口 直接在上面的代码里面增加显示框 完成后自动关闭怎么做
此主题相关图片如下：qq截图20140823130019.png
[此贴子已经被作者于2014-8-23 13:01:35编辑过]
-- 发布时间：2014/8/23 14:08:00
--
这个提示框就是窗口来的.