以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请老师看看这个代码有问题么？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79895)
--  作者：shilhoue
--  发布时间：2016/1/11 21:42:00
--  请老师看看这个代码有问题么？

项目启动时提示如下：

.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2015.12.22.1
错误所在事件：业务登记,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。

是因为我启动时没有将全部窗口加载么？

[此贴子已经被作者于2016/1/11 21:42:45编辑过]
--  作者：大红袍
--  发布时间：2016/1/11 22:06:00
--  

currentChanged事件，加上代码

 

If e.Table.Current Is Nothing Then return
--  作者：shilhoue
--  发布时间：2016/1/12 7:35:00
--  

仍然报错

事件代码如下

If e.Table.Current Is Nothing Then
  Return
Else
  If e.Table.Current("解除占用")=True Then
     Forms("任务安排").Controls("Button2").Enabled=False
  Else
     Forms("任务安排").Controls("Button2").Enabled=True
  End If
End If
--  作者：Hyphen
--  发布时间：2016/1/12 8:22:00
--  

If e.Table.Current Is Nothing andalso Forms("任务安排").opened = false Then
  Return
end if

 下面的代码改改放到窗口afterload事件
--  作者：shilhoue
--  发布时间：2016/1/13 22:02:00
--  
还是出差，问题到底出在哪里呢？只有启动时会提示，打开窗口后能正常操作运行。
--  作者：Hyphen
--  发布时间：2016/1/14 8:09:00
--  
条件搞错了，这个

If e.Table.Current Is Nothing orelse Forms("任务安排").opened = false Then
  Return
end if