有多少行数据？每一行都导出一个报表，当然需要时间的。
循环优化一下
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
加好友 
发短信
Post By：2022/7/6 15:49:00 [只看该作者]
