想写一段根据值判断是否显示控件的代码! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 想写一段根据值判断是否显示控件的代码!

共有8871人关注过本帖树形打印复制链接主题：想写一段根据值判断是否显示控件的代码!

谢天钰

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

加好友

发短信

等级：童狐帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00

想写一段根据值判断是否显示控件的代码! 发帖心情

Post By：2013/1/9 0:07:00 [只看该作者]

想写一段根据值判断是否显示控件的代码!

控件1为多值字段判断1是否包含25 如果包含25则显示控件2

麻烦专家帮助我写一段代码学习!

Dim zzs As new List(of String)
zzs.add(e.Form.Controls("CheckedComboBox1").text)
Dim qtzz As WinForm.TextBox = e.Form.Controls("TextBox3")
If zzs IsNot Nothing Then
    If zzs.Contains(25) = True Then
        qtzz.Visible = True
    Else
        qtzz.Visible = False
    End If
End If

这段代码如果我在("CheckedComboBox1")中输入25 就隐藏了qtzz 如果输入多一个值但是也包含25 就不隐藏了,麻烦看看我错在哪里?

[此贴子已经被作者于2013-1-9 0:16:40编辑过]

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 9:07:00 [只看该作者]

Dim qtzz As WinForm.TextBox = e.Form.Controls("TextBox3")

If qtzz.Text.IndexOf("25") > -1 Then
qtzz.Visible = True
Else
qtzz.Visible = False
End If

[此贴子已经被作者于2013-1-9 9:09:29编辑过]

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

主题：想写一段根据值判断是否显示控件的代码!