Foxtable(狐表)用户栏目专家坐堂 → 清除所有控件内容


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

主题:清除所有控件内容

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
清除所有控件内容  发帖心情 Post By:2017/6/17 11:38:00 [只看该作者]

控件有三种类型;DropDownBox、ComboBox、TextBox
在”学生姓名“控件 TextChanged 清除“学生姓名”以外控件内容。请老师指点,谢谢!
If winform.DropDownBox <> e.Form.Controls("学生姓名") Then
    For Each c As WinForm.Control In e.Form.Controls
        If Typeof c Is winform.TextBox OrElse TypeOf c Is winform.Combobox OrElse TypeOf c Is winform.DropDownBox Then
            Dim t As WinForm.TextBox = c
            Dim t1 As WinForm.Combobox = c
            Dim t2 As WinForm.DropDownBox = c
            t.Value = Nothing
            t1.Value = Nothing
            t2.Value = Nothing
        End If
    Next
End If
[此贴子已经被作者于2017/6/17 11:40:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/17 11:42:00 [只看该作者]

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is winform.TextBox OrElse TypeOf c Is winform.Combobox Then
        If c.Name <> e.sender.name
            c.Value = Nothing
        End If
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2017/6/17 12:08:00 [只看该作者]

错误提示 Value不是winform.Combobox的成员
c.Value = Nothing

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/17 14:10:00 [只看该作者]

For Each c As object In e.Form.Controls
    If Typeof c Is winform.TextBox OrElse TypeOf c Is winform.Combobox Then
        If c.Name <> e.sender.name
            c.Value = Nothing
        End If
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
Liangcai
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2017/6/23 10:19:00 [只看该作者]

谢谢

 回到顶部