- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178493)
-- 发布时间：2022/7/6 15:49:00
-- [求助]
导出合同太慢，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:村级导出.rar |
-- 发布时间：2022/7/6 16:19:00
--
有多少行数据？每一行都导出一个报表，当然需要时间的。
循环优化一下
If Result = DialogResult.Yes Then
e.Form.Controls("Label2").Text= "正在导出,请稍后..."
Application.DoEvents()
Tables("村级").sort = “单位,类型,合同启用,姓名,身份证”
Dim tm As String = ProjectPath & "Attachments\\2022年度生态护林员村级管理员劳务协议.doc" \'指定模板文件 For Each dr As Row In Tables("村级").Rows
Dim fl As String = ProjectPath & "导出合同\\村级\\" & dr("单位") & dr("类型") & dr("合同启用") & dr("姓名") & dr("身份证") & ".doc" \'指定目标文件
Dim wrt As New WordReport(Tables("村级"), tm, fl) \'定义一个WordReport
wrt.BuildOne(dr)
wrt.Quit
Next
e.Form.Controls("Label2").Visible=False
MessageBox.Show("村级" & Tables("村级").Rows.Count & "份协议已导出.")
End If