如何用循环语句批量置空文本框里的值？

打字比你快

有文本框名为1至100，想批量置空这些文本框值，下面这段代码不正确。。

For i = 1 To 100
         Me.i = Null
Next i

koutx

For i = 1 To 100
    Me.Controls(i) = Null
Next

打字比你快

不行啊，Me.Controls(i) = Null 提示对象不支持属性和方法。。。

roych

1. Sub test()
   
2. For Each ctr In Me.Controls
   
3.     If ctr.ControlType = acTextBox Then
   
4.         ctr.Value = ""
   
5.     End If
   
6. Next  
   
7. End Sub
   

复制代码

koutx

打字比你快 发表于 2012-7-7 15:26
不行啊，Me.Controls(i) = Null 提示对象不支持属性和方法。。。

你下载看一下，我试着没问题。

t小宝

控件命名最好不要用纯数字，注意 Me.Controls(1) 和 Me.Controls("1") 是不同的！
有很多重复控件，可以这样命名：T1、T2... 这样引用 Me.Controls("T" & i)