主题：[求助] 出问题了

如图，请问为什么会出现这个问题 ？ 第一个记录执行可以。可以后面几个就出现这个问题了，哪儿有错吗？ 如果有错，有些记录执行是可以的。

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\Production Order.xlsx")
Dim Result As DialogResult
Dim Proc As New Process '打开工作簿

 
Dim fl As String = ProjectPath & "Production Order\" & Tables("生产任务单.生产投料单").current("生产任务单号") & ".xlsx"  

 

Book.Build()

 

If FileSys.FileExists(ProjectPath & "production order\" & Tables("生产任务单.生产投料单").current("生产任务单号") & ".xlsx")  Then
    Result = Messagebox.Show(Tables("生产任务单.生产投料单").current("生产任务单号") & ".xlsx"&" 文件已经存在,是否要覆盖?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
       
        Book.Save(fl) '保存工作簿
        Proc.File = fl
        Proc.Start()

      End If
Else
Book.Save(fl) '保存工作簿
Proc.File = fl
Proc.Start()

End If

此主题相关图片如下：捕获.jpg