[求助]程序经常死掉 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这段代码，无法长时间循环，一会生成2个，一会生成20多个，有的时候生成100多个。程序经常死机。

请问我该怎么解决一下？谢谢！

Dim j As Integer

For j = 0 To 2827

Dim tm As String = ProjectPath & "Attachments\Labelplate.doc" '指定模板文件

With Tables("名录")

Dim fileName As String =ProjectPath & "ReportsDOC\" & Tables("名录").Rows(j)("号") & "-" & Tables("名录").Rows(j)("UN") & "-" & Tables("名录").Rows(j)("品名") & " 标签.doc" '指定目标文件

Dim fileName2 As String =ProjectPath & "ReportsDOC\" & Tables("名录").Rows(j)("号") & "-" & Tables("名录").Rows(j)("UN") & "-" & Tables("名录").Rows(j)("品名") & " 标签.pdf" '指定目标文件

'指定目标文件

Dim wrt As New WordReport(Tables("名录"),tm,fileName) '定义一个WordReport

wrt.Build() '逐行生成报表

wrt.SaveToPDF(fileName2)

wrt.quit

End With

主题：[求助]程序经常死掉