[求助]关闭项目前备份项目窗口弹出很慢是什么原因？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问老师：

我在项目事件BeforeCloseProject事件中写了代码：

Forms("备份提示窗口").Open

然后再备份提示窗口的“备份”按钮中写了如下代码：

Dim st As Date = Date.Now

e.Form.Controls("Label1").Text = "正在备份,请稍后..."

Application.DoEvents()

Syscmd.Project.Save()

Syscmd.Project.Backup("d:\备份\Backup", True)

e.Form.Controls("Label1").Text = "备份完毕,耗时: " & (Date.Now - st).TotalSeconds & "秒"

Forms("备份提示窗口").Close

但是窗口关闭按钮按下后，有时备份提示窗口弹出比较快，有时会延迟20-40秒才会出现。这是什么原因？是正常现象吗？

还有这段代码执行结果，不出现“备份完毕，耗时：...” 这段文字。

[此贴子已经被作者于2020/7/23 15:47:20编辑过]

主题：[求助]关闭项目前备份项目窗口弹出很慢是什么原因？