Office中国论坛/Access中国论坛

标题: 如何用循环语句批量置空文本框里的值？ [打印本页]

---

作者: 打字比你快    时间: 2012-7-7 09:48
标题: 如何用循环语句批量置空文本框里的值？
有文本框名为1至100，想批量置空这些文本框值，下面这段代码不正确。。

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

---

作者: koutx    时间: 2012-7-7 10:13
For i = 1 To 100
    Me.Controls(i) = Null
Next

---

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

---

作者: roych    时间: 2012-7-8 04:21

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-8 11:45

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

你下载看一下，我试着没问题。
[attach]49609[/attach]

---

作者: t小宝    时间: 2012-7-8 21:20
控件命名最好不要用纯数字，注意 Me.Controls(1) 和 Me.Controls("1") 是不同的！
有很多重复控件，可以这样命名：T1、T2... 这样引用 Me.Controls("T" & i)

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3