- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]让程序暂停10s在继续执行怎么设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159017)
-- 发布时间：2020/12/10 17:00:00
-- [求助]让程序暂停10s在继续执行怎么设置
在程序中需要批量生成Excel报表，如果直接循环会出现问题，需要等系统先查询出数据再生成报表，怎么设置个时间，让程序暂停1s
-- 发布时间：2020/12/10 17:04:00
--
如果不是使用异步函数，代码都是顺序执行的，前面的代码没有执行完毕后面是不会执行的，没看出来暂停的用处。
具体使用了什么代码，发上来看看。
一定要用参考：
-- 发布时间：2020/12/11 14:11:00
--
两张关联表打印一套Excel报表。每条父表数据生成一个Excel表，其中子表数据需要进行筛选。用代码生成。
结果出现子表的数据没有筛选过。但使用键盘鼠标换行打印Excel报表生成的Excel文件是筛选过的。正确代码是怎么写的？
Dim Filter As String
Filter = "JYSJ >= #" & dt1 & "# And JYSJ <= #" & dt2 & "#"
MainTable = Tables("CLXX")
Tables("CLXX.JYJL").Filter = Filter
Dim sheet1 As XLS.Sheet
Dim f1,f2 As String
f1=ProjectPath & "\\temp.xls"
f2=SpecialFolder.DesktopDirectory & "\\单车加油-" & Jysxn & Jysxy & ".xls"
Dim Book2 As New XLS.Book
For i As Integer = 0 To CurrentTable.Rows.Count -1
CurrentTable.Position = i
System.Threading.Thread.Sleep(1000)
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\\单车加油模板.xls")
Book1.Build() \'生成细节区
Sheet1 = Book1.Sheets("muban")
sheet1.Name = CurrentTable.Current("CH")
System.Threading.Thread.Sleep(1000)
Book1.Save(f1) \'保存工作簿
Book1.Sheets.Remove(Sheet1)
Book2.Sheets.Add(Sheet1)
System.Threading.Thread.Sleep(500)
Next
正确的写法是什么？
不给个暂停时间，360杀毒软件认为狐表是勒索病毒
-- 发布时间：2020/12/11 14:39:00
--
1、把foxtable安装目录加入360的信任列表
2、如果是发布的程序，可以发给360认证
-- 发布时间：2020/12/11 14:41:00
--
暂停下就没问题了。
老师帮忙看看代码中什么地方出了问题，子表筛选出问题，生成的Excel报表没有进行筛选。