将不是控件数组的text一次性清空
Dim I As Long
For I = 1 To 8
Me("Text" & I).Text = ""
Next
还有如果name不是"text" & i 的话,可以用
dim s as control
for each s in form1.controls
if typeof s is textbox then s.text=""
next
不过是对form1所有的textbox都修改。
Dim I As Long
For I = 1 To 8
Me("Text" & I).Text = ""
Next
还有如果name不是"text" & i 的话,可以用
dim s as control
for each s in form1.controls
if typeof s is textbox then s.text=""
next
不过是对form1所有的textbox都修改。