If s > "" Then
DataTables("工单").loadFilter = "工单号 In (" & s & ")"
DataTables("工单").load
End If
''System.Threading.Thread.sleep(3000)
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产计划单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\生产计划单.xls"
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
红色部分代码在蓝色代码执行完成后才执行， 导致出来的表是上一个条件的数据，我加了一段紫色代码等待几秒才是正确的，，我试着把等待时间减少，发现不行，如果数据多点3秒也不行。这个要怎么处理。VB不是按顺序执行么？
加好友 
发短信
Post By：2017/8/25 16:53:00 [只看该作者]
