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


  共有3316人关注过本帖树形打印复制链接

主题：关于重新启动程序问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/2 9:10:00 [显示全部帖子]

写到初始化数据按钮上了

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/5 10:21:00 [显示全部帖子]

重新做了的测试程序
用application.restart就能重启程序，而放到实际程序中酒重启不了了，是哪的原因呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：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
Next
ps = System.Diagnostics.Process.GetProcessesByName("fa piao管理系统")
For Each p As System.Diagnostics.Process In ps
    p.kill
Next
[此贴子已经被作者于2020/9/5 10:57:48编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 8 次数据查询