Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请老大帮忙看看究竟是怎么会事（已解决）


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

主题：请老大帮忙看看究竟是怎么会事（已解决）
帅哥哟，离线，有人找我吗？
xiaoqiwei
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		请老大帮忙看看究竟是怎么会事（已解决）  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40803 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2011/6/10 4:07:00 [只看该作者]

说得很清楚，没有label5这个控件嘛！请检查控件名称！

 回到顶部
帅哥哟，离线，有人找我吗？
xiaoqiwei
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		  发帖心情 Post By：2011/6/10 16:45:00 [只看该作者]

以下是引用程兴刚在2011-6-10 4:07:00的发言：
说得很清楚，没有label5这个控件嘛！请检查控件名称！

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

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名-1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/10 16:49:00 [只看该作者]

做例子上来，电脑不会撒谎的。
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/10 17:06:00 [只看该作者]


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





你把这两个控件移除了,怎么找得到呢,先是找不到label5,后来你删除了那句代码,那么立马显示找不到lable9的控件.还是你的逻辑问题,什么时候移除,什么时候不移除造成的.
 回到顶部
帅哥哟，离线，有人找我吗？
xiaoqiwei
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		  发帖心情 Post By：2011/6/10 18:22:00 [只看该作者]

以下是引用狐狸爸爸在2011-6-10 16:49:00的发言：

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

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
 回到顶部
帅哥哟，离线，有人找我吗？
xiaoqiwei
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		  发帖心情 Post By：2011/6/11 1:09:00 [只看该作者]

请老大帮忙看看，6楼的附件，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/11 8:30:00 [只看该作者]

你这个还不如改提示呢!

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：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
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00 		  发帖心情 Post By：2011/6/11 23:12:00 [只看该作者]

已解决，谢谢“blackzhu”

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04907 秒, 5 次数据查询