[求助]升级了系统。报错。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]升级了系统。报错。

共有3418人关注过本帖树形打印复制链接主题：[求助]升级了系统。报错。

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

[求助]升级了系统。报错。 发帖心情

Post By：2014/11/6 10:53:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.10.23.1
错误所在事件：
详细错误信息：
未将对象引用设置到对象的实例。

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2014.10.23.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
无法访问已释放的对象。
对象名:“O__oO0__”。

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 10:57:00 [显示全部帖子]

代码如下：

basemainform.Text = "博达软件管理系统BDSMS"
Syscmd.Project.Update(False,True)
Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 11:01:00 [显示全部帖子]

我知道啊。不管是否升级都应该去执行

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 11:05:00 [显示全部帖子]

我是不是在应该在后面加一段代码

If Syscmd.Project.Update(False,True) = true Then '如果升级

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

End If

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 11:20:00 [显示全部帖子]

以下是引用有点甜在2014-11-6 11:10:00的发言：

回复楼上，那样多余，你就那样写就行了。

如果升级成功，会重新打开项目的。

If Syscmd.Project.Update(False,True) = False Then '如果没有升级

Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

End If

改为这样，报同样的错啊。

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 11:23:00 [显示全部帖子]

if Syscmd.Project.Update(False,True) = false then

basemainform.Text = "博达软件管理系统BDSMS"
Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"

endif

把basemainform.Text = "博达软件管理系统BDSMS"已放入判断里面

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 11:29:00 [显示全部帖子]

以下是引用有点甜在2014-11-6 11:26:00的发言：

你AfteropenProject肯定还有其他代码吧？

或者你的BeforeCloseProject有影响代码

AfteropenProject代码如下：

basemainform.Text = "博达软件管理系统BDSMS"

If Syscmd.Project.Update(False,True) = False Then '如果没有升级
Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
End If

BeforeCloseProject没有代码

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/6 12:04:00 [显示全部帖子]

以下是引用有点甜在2014-11-6 11:32:00的发言：

你要先弄清一个问题。

1、你要改的，是你旧的那个项目，也就是是需要升级的那个项目；

2、你尝试也把LoadUserSetting的代码去掉。

甜老师，我重新看了一下说明书。

代码改为这样就不会报错了。还是把 basemainform.Text = "博达软件管理系统BDSMS"放入判断里面。

If Syscmd.Project.Update(False,True) = False Then '如果没有升级
    basemainform.Text = "博达软件管理系统BDSMS"
    Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 = 'Submitted'"
    Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
End If

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

主题：[求助]升级了系统。报错。