关于DATACOMBO的TEXT属性清空,求救

Question

代码如下,有那为大虾可以帮我看看,就是定一个COMMAND控件,如何把所有的DATACOMBO控件的TEXT清空
Dim setcontrol As Control
     For Each setcontrol In Me.Controls
         If TypeName(setcontrol) = "DataCombo" Then
            setcontrol.Text = ""
         End If
     Next
  Exit Sub

Answer 1

你设置断点，或按F8单步执行，看看是否执行FOR循环？

Answer 2

在IF前面设置一个断点，程序运行到断点后，按F8单步运行，看看程序是否执行了 setcontrol.Text = ""  语句。

Answer 3

在IF前面设置一个断点，程序运行到断点后，按F8单步运行，看看程序是否执行了 setcontrol.Text = ""  语句。

Answer 4

执行了setcontrol.Text = ""，但是DATACOMBO的内容并没有被清空？？

Answer 5

就是DATACOMBO中的数据没有被清空

Answer 6

晕~清空DATACOMBO中的ITEM：
SET SETCONTROL.ROWSOURCE = NOTHING

Answer 7

楼上你想错了,是清空条件不是把DATACOMBO中的数据清空

Answer 8

是把已经被选过当作条件查询的DATACOMBO中的条件清空啊,就是回到初始运行时的效果

Answer 9

Dim setcontrol As Control
For Each setcontrol In Me.Controls
If TypeName(setcontrol) = "DataCombo" Then
MsgBox "准备清空" & setcontrol.Name
setcontrol.Text = ""
MsgBox  setcontrol.Name & "已清空" 
End If
Next