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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于重新启动程序问题

共有4245人关注过本帖树形打印复制链接主题：关于重新启动程序问题

裴保民

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

关于重新启动程序问题 发帖心情

Post By：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键进入程序后，运行该代码能重新启动程序。

裴保民

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/2 9:10:00 [显示全部帖子]

写到初始化数据按钮上了

裴保民

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/2 12:57:00 [显示全部帖子]

还是重启不了呢？并且按Ctrl键进入程序后，运行该代码会出错。

[此贴子已经被作者于2020/9/2 12:59:11编辑过]

裴保民

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/2 13:40:00 [显示全部帖子]

此主题相关图片如下：截图01.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:重启动.foxdb

[此贴子已经被作者于2020/9/2 13:46:09编辑过]

裴保民

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/2 17:12:00 [显示全部帖子]

怎么不重启呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:重启动.foxdb

[此贴子已经被作者于2020/9/2 17:15:51编辑过]

裴保民

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/2 17:37:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:重启动.foxdb

这个是换了窗体的，启动程序后启动的是窗体2，单击按钮显示窗体3，再单击窗体3按钮会显示窗体1，再选择启动按钮，不重新启动的

[此贴子已经被作者于2020/9/2 17:38:41编辑过]

裴保民

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/5 10:21:00 [显示全部帖子]

重新做了的测试程序

用application.restart就能重启程序，而放到实际程序中酒重启不了了，是哪的原因呢？

裴保民

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2020/9/5 10:39:00 [显示全部帖子]

如果把启动窗体变成其他窗体都能启动，只要启动窗体在主窗体就不能重启程序，我仔细查了查也没发现主窗体有什么限制代码呀，都是模式窗体，

找到原因了我在AfterClose 事件中写了如下代码的原因，怎么处理一下呢？

DataTables.Save

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")

For Each p As System.Diagnostics.Process In ps

p.kill

ps = System.Diagnostics.Process.GetProcessesByName("fa piao管理系统")

For Each p As System.Diagnostics.Process In ps

p.kill

[此贴子已经被作者于2020/9/5 10:57:48编辑过]

下一主题 >> << 上一主题

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