以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助个小问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139073)
--  作者：houseer
--  发布时间：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()  这一句不对。 请问应该怎么写？   

 

--  作者：有点蓝
--  发布时间：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
--  发布时间：2019/8/5 11:23:00
--  

  老师，这样写报错啊。

‘text’  is not member of  WinForm.Control

--  作者：有点蓝
--  发布时间：2019/8/5 11:33:00
--  
tj_开头的都是什么控件？如果有多种类型的控件，需要区分一下


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

elseIf Typeof c Is WinForm.ComboBox Then 
--  作者：houseer
--  发布时间：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这里报错。
--  作者：有点蓝
--  发布时间：2019/8/5 13:33:00
--  
能不能仔细看看帮助

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