Foxtable(狐表)用户栏目专家坐堂 → 有关项目关闭后重新自动打开代码如何写?


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

主题:有关项目关闭后重新自动打开代码如何写?

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
有关项目关闭后重新自动打开代码如何写?  发帖心情 Post By:2011/10/25 13:59:00 [显示全部帖子]

在项目中,如何有修改代码后,会提示需要重新打开项目,关闭项目后,项目会自动重新打开.

请问老大,这个代码应如何写?多谢了!


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2011/10/25 14:30:00 [显示全部帖子]

哦.明白.多谢了!!


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2011/10/25 15:00:00 [显示全部帖子]

Dim FileName As String = ProjectPath & "物流综合系统.foxdb"
Syscmd.Project.Exit(False)
Syscmd.Project.Open(FileName)

 

不执行重新打开项目.请问是否重新打开项目时不需要Syscmd.Project.Exit(False) ?


 


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2011/10/25 15:10:00 [显示全部帖子]

Dim FileName As String = ProjectPath & "物流综合系统.foxdb"
Syscmd.Project.Open(FileName)

这样就可以.

 

Dim FileName As String = ProjectPath & "物流综合系统.foxdb"
Syscmd.Project.Exit(False)
Syscmd.Project.Open(FileName)

这样就不可以

 

不知何原故?


 回到顶部