- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 模式窗体关闭报错……有没有办法解决呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170011)
-- 发布时间：2021/7/9 10:42:00
-- 模式窗体关闭报错……有没有办法解决呢？
登录窗口是个模式窗体
If e.Form.Controls("TextBox1").text="cnsjroom" Then
Forms("登录窗口").Close
Forms("服务管理").show
Else
MessageBox.Show("密码错误,请核对密码!","温馨提示")
End If
上述代码运行后报错如下：
错误提示如下：
有关调用实时(JIT)调试而不是此对话框的详细信息，
请参见此消息的结尾。
************** 异常文本 **************
System.NullReferenceException: 未将对象引用设置到对象的实例。
-- 发布时间：2021/7/9 10:45:00
--
参考这种用法：http://www.foxtable.com/webhelp/topics/2048.htm
九、在项目事件AfterOpenProject中加入代码：
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return \'这个要加上，因为既然要退出，就不应该再执行后面的初始化代码了，否则会出错
End If
Forms("服务管理").show
\'后续初始化代码
-- 发布时间：2021/7/9 10:56:00
-- 回复：（有点蓝）参考这种用法：http://www.foxtable....
就一个密码锁窗体
此主题相关图片如下：1.png
代码该怎么完善呢？
If e.Form.Controls("TextBox1").text="cnsjroom" Then
Forms("登录窗口").Close
Forms("服务管理").show
Else
MessageBox.Show("密码错误,请核对密码!","温馨提示")
End If
当前运行错误如下：
此主题相关图片如下：2.png
-- 发布时间：2021/7/9 11:02:00
--
到打开密码窗口的地方处理
-- 发布时间：2021/7/9 11:05:00
-- 回复：（有点蓝）到打开密码窗口的地方处理
采用的是系统空闲时间弹窗 麻烦老师指导下 看看怎么解决错误问题 谢谢！
代码如下：
此主题相关图片如下：1.png
If LastInputTickCount > 30000 Then
Forms("登录窗口").show
End If
此主题相关图片如下：1.png-- 发布时间：2021/7/9 11:27:00
--
If LastInputTickCount > 30000 Then
Forms("登录窗口").show
if vars("yes") = true then
vars("yes") = false
Forms("服务管理").show
endif
End If
密码窗口确定按钮
If e.Form.Controls("TextBox1").text="cnsjroom" Then
vars("yes") = true
Forms("登录窗口").Close
Else
MessageBox.Show("密码错误,请核对密码!","温馨提示")
End If
-- 发布时间：2021/7/9 11:53:00
-- 回复：（有点蓝）If LastInputTickCount > 30000 T...
麻烦有点蓝老师继续指导下
按照老师的上述指导操作 运行结果错误还是楼上的提示！
-- 发布时间：2021/7/9 12:09:00
--
请上传实例说明