Foxtable(狐表)用户栏目专家坐堂 → Syscmd.Project.Exit报错问题


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

主题:Syscmd.Project.Exit报错问题

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


加好友 发短信
等级:二尾狐 帖子:531 积分:4155 威望:0 精华:0 注册:2012/11/26 21:54:00
Syscmd.Project.Exit报错问题  发帖心情 Post By:2014/8/4 1:00:00 [只看该作者]

各位老师,

我的系统打开后,会先出来一个模式窗口的登陆界面,如果不登陆直接关闭该窗口,那应该是关闭系统,所以我在该模式窗口的AfterClose写入代码:
①判断是否登陆,如果否
②运行代码Syscmd.Project.Exit(False)

按理说应该没错,不过还是会出现如下报错点击两次继续后系统不会打开,不过进程不会关闭,如果我把该代码写在该模式窗口的BeforeClose里面,不会报错且Foxtable进程也会关闭,但是关闭该窗口起码需要8秒左右,一直卡那?想请教老师们是否有好的办法解决这个问题?谢谢

有关调用实时(JIT)调试而不是此对话框的详细信息,
请参见此消息的结尾。

************** 异常文本 **************
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 C1.Win.C1FlexGrid.C1FlexGridBase.get_Cols()
   在 Foxtable.Table.a(Boolean A_0, Boolean A_1)
   在 Foxtable.Table.get_Cols()
   在 Foxtable.gn.a(C1TextBox A_0, BooleanEnum A_1)
   在 Foxtable.cj.c(Object A_0, EventArgs A_1)
   在 System.EventHandler.Invoke(Object sender, EventArgs e)
   在 System.Windows.Forms.Control.OnEnter(EventArgs e)
   在 C1.Win.C1Input.C1TextBox.OnEnter(EventArgs e)
   在 System.Windows.Forms.Control.NotifyEnter()
   在 System.Windows.Forms.ContainerControl.UpdateFocusedControl()


************** 已加载的程序集 **************


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


加好友 发短信
等级:一尾狐 帖子:451 积分:3045 威望:0 精华:1 注册:2012/7/17 22:08:00
  发帖心情 Post By:2014/8/4 2:20:00 [只看该作者]

发例子上来看看!

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/4 8:30:00 [只看该作者]

例子发上来看看,应该是你项目关闭事件有相关操作代码

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/4 9:13:00 [只看该作者]

 试试强制关闭

 

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

ps(0).kill

 

-------------------------

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Foxtable")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle.Contains("你的项目名") Then
        p.kill
    End If
Next


 回到顶部