关于重新启动程序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim sjkyslj As String= ProjectPath & "dateys\fpglsj" & ".mdb"

Dim sjkcflj As String= ProjectPath & "date\fpglsj" & ".mdb"

If FileSys.FileExists(sjkyslj)=False Then

Messagebox.Show("文件不存在或已经被删除!","提示")

Return

End If

FileSys.CopyFile(sjkyslj,sjkcflj,True)

MessageBox.Show("初始化数据库成功!","提示",MessageBoxButtons.Ok,MessageBoxIcon.information,0, System.Windows.forms.MessageBoxOptions.ServiceNotification)

Syscmd.Project.Exit(False)

application.restart

Syscmd.Project.Open(ProjectFile)

这段代码运行后为什么在正常启动后，重启不了呢？

在Ctrl键进入程序后，运行该代码能重新启动程序。

主题：关于重新启动程序问题