以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请老大帮忙看看究竟是怎么会事（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10522)
--  作者：xiaoqiwei
--  发布时间：2011/6/10 0:25:00
--  请老大帮忙看看究竟是怎么会事（已解决）

代码和设置如下图：


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看

 

单条件不符合时就如下图： 


图片点击可在新窗口打开查看此主题相关图片如下：未命名1.jpg
图片点击可在新窗口打开查看

 

当点击取消或右上角的“X”关闭就会提示下图的错误：

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：未命名3.jpg
图片点击可在新窗口打开查看

 

请问这究竟是怎么回事啊？

代码如下：

Dim sjhm As String = e.Form.Controls("TextBox1").Value
If sjhm IsNot Nothing Then
If sjhm.Length < "11" Then
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = True
e.Form.Controls("PictureBox5").Visible = False
ElseIf sjhm.Length = "11" Then
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = False
e.Form.Controls("PictureBox5").Visible = True
End If
Else
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = True
e.Form.Controls("PictureBox5").Visible = False
End If

[此贴子已经被作者于2011-6-11 23:12:36编辑过]
--  作者：程兴刚
--  发布时间：2011/6/10 4:07:00
--  
说得很清楚，没有label5这个控件嘛！请检查控件名称！
--  作者：xiaoqiwei
--  发布时间：2011/6/10 16:45:00
--  
以下是引用程兴刚在2011-6-10 4:07:00的发言：
说得很清楚，没有label5这个控件嘛！请检查控件名称！

请看下图，已经存在label5这个控件，如果我将代码“e.Form.Controls("Label5").Visible = False” 删除，运行时按取消或右上角“X”就提示找不到“Label9控制”

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名-1.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2011/6/10 16:49:00
--  

做例子上来，电脑不会撒谎的。
--  作者：blackzhu
--  发布时间：2011/6/10 17:06:00
--  

e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = False





你把这两个控件移除了,怎么找得到呢,先是找不到label5,后来你删除了那句代码,那么立马显示找不到lable9的控件.还是你的逻辑问题,什么时候移除,什么时候不移除造成的.
--  作者：xiaoqiwei
--  发布时间：2011/6/10 18:22:00
--  
以下是引用狐狸爸爸在2011-6-10 16:49:00的发言：

做例子上来，电脑不会撒谎的。

老大，请帮忙看看，默认密码：888

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
--  作者：xiaoqiwei
--  发布时间：2011/6/11 1:09:00
--  
请老大帮忙看看，6楼的附件，谢谢
--  作者：blackzhu
--  发布时间：2011/6/11 8:30:00
--  
你这个还不如改提示呢!
--  作者：blackzhu
--  发布时间：2011/6/11 14:34:00
--  
改提示一样的.

Dim sjhm As String = e.Form.Controls("TextBox1").Value
If sjhm.Length < "11" Then
    MessageBox.show("输入的手机位数不对,请确认!","温馨提示")
    e.Form.Controls("TextBox1").Value =Nothing
Else
    e.Form.Controls("PictureBox5").Visible = True
End If
--  作者：xiaoqiwei
--  发布时间：2011/6/11 23:12:00
--  
已解决，谢谢“blackzhu”