- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于重新启动程序问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154040)
-- 发布时间：2020/9/2 8:39:00
-- 关于重新启动程序问题
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键进入程序后，运行该代码能重新启动程序。
-- 发布时间：2020/9/2 8:40:00
--
代码放在哪里的？
-- 发布时间：2020/9/2 9:10:00
--
写到初始化数据按钮上了
-- 发布时间：2020/9/2 9:24:00
--
……
FileSys.CopyFile(sjkyslj,sjkcflj,True)
MessageBox.Show("初始化数据库成功!","提示",MessageBoxButtons.Ok,MessageBoxIcon.information,0, System.Windows.forms.MessageBoxOptions.ServiceNotification)
e.cancel=true
Syscmd.Project.Open(ProjectFile)
-- 发布时间：2020/9/2 12:57:00
--
还是重启不了呢？并且按Ctrl键进入程序后，运行该代码会出错。
[此贴子已经被作者于2020/9/2 12:59:11编辑过]
-- 发布时间：2020/9/2 13:39:00
--
请上传实例说明
-- 发布时间：2020/9/2 13:40:00
--
此主题相关图片如下：截图01.jpg
[此贴子已经被作者于2020/9/2 13:46:09编辑过]
-- 发布时间：2020/9/2 14:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:重启动.zip |
-- 发布时间：2020/9/2 17:12:00
--
怎么不重启呢？
[此贴子已经被作者于2020/9/2 17:15:51编辑过]
-- 发布时间：2020/9/2 17:16:00
--
重启后还是打开同样的窗口，实际上已经重启了