Foxtable(狐表)用户栏目专家坐堂 → 求助个小问题。


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

主题:求助个小问题。

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


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
求助个小问题。  发帖心情 Post By:2019/8/5 10:53:00 [只看该作者]

   我的窗口的table上面有一些筛选条件的控件。

 

  我想点一个按钮把里面的内容都清除。

  For Each c As WinForm.Control In e.Form.Controls
    If c.Name.Contains("tj_") Then
       c.clear()
    End If
Next

 

 

  c.clear()  这一句不对。 请问应该怎么写?   

 


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


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

For Each c As WinForm.Control In e.Form.Controls
    If c.Name.Contains("tj_") Then
       c.text = “”
    End If
Next

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


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
  发帖心情 Post By:2019/8/5 11:23:00 [只看该作者]

  老师,这样写报错啊。

‘text’  is not member of  WinForm.Control


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


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

tj_开头的都是什么控件?如果有多种类型的控件,需要区分一下


If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框

elseIf Typeof c Is WinForm.ComboBox Then 


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


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
  发帖心情 Post By:2019/8/5 12:20:00 [只看该作者]

For Each c As WinForm.Control In e.Form.Controls
    If c.Name.Contains("tj_") Then
        If Typeof c Is WinForm.TextBox Then
           c.text = ""
        ElseIf Typeof c Is WinForm.ComboBox Then
           c.value = ""
        ElseIf Typeof c Is WinForm.DateTimePicker Then
           c.value = ""
        End If
    End If
Next

 

老师这样写还是报错啊。  text这里报错。


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


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

能不能仔细看看帮助

 If Typeof c Is WinForm.TextBox Then 
  Dim t As WinForm.TextBox = c
  c.text = ""

 回到顶部