麻烦老师帮忙看看 为什么第二个遍历循环 启用之后 会一直循环完毕了都不弹出提示已经完成的内容和打开指定目录呢
如果把红色部分代码取消 又会正确弹出提示和打开指定目录
Dim abc As String
Dim fl As String
Dim f2 As String
Dim i As Integer
Dim Products As List(Of String)
Products = DataTables("数据表").SQLGetValues("d5","","d5")
If Products.Count > 1 Then
For i = 0 To Products.Count - 1
Dim Products1 As List(Of String)
For Each Product As String In Products
Products1 = DataTables("数据表").SQLGetValues("d7","d5='" & Product & "'","d7")
Dim s1 As String = Products1(0)
If Products1.Count > 1 Then
s1 = s1 & "至" & Products1(Products1.Count - 1)
End If
Dim sum As Double = DataTables("数据表").SQLCompute("sum(d8)","d5='" & Product & "'")
Dim Book As New XLS.Book(ProjectPath & "Attachments\物业费模板.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,9).Value = "<d5 = '" & Product & "'>" '写入打印条件
If Product.Contains("/") Then
output.show(Product)
abc = Product.Replace("/","-")
fl = ProjectPath & "Reports\" & abc & "【" & s1 & "欠款" & sum & "元】.xls"
Else
fl = ProjectPath & "Reports\" & Product & "【" & s1 & "欠款" & sum & "元】.xls"
End If
Book.Build()
Book.Save(fl)
Next
Next
MessageBox.Show("单个表已经生成!","温馨提示")
Dim Proc As New Process
Dim dk As WinForm.CheckBox = e.Form.Controls("完成后打开指定目录")
If dk.Checked=True Then
Proc.File = ProjectPath & "Reports\" '指定要打开的文件
Proc.Start()
End If
End If
加好友 
发短信
Post By：2021/7/22 12:43:00 [只看该作者]
