这要小心
由其你的编号超过100以上时会出现错误
譬如textbox401 ~textbox410 (连着号码时常改name不方便,有时后都会跳很远)
^ 有个0
while i < 11
如果我用Controls("Textbox40" & i) 最后会变成 textbox4010
在这种时后要放入text( 变量 ,"00") 就会显示成01~10 而不是1~10
Controls("Textbox4" & text(i,"00"))
^已经让变量自动出现0
最后就会变这样啦
Do While i < 11
Set txt = Me.Controls("Textbox4" & text(i,"00"))
If txt.Text = "" Then
txt.Visible = False
elseIf txt.Text <> "" Then
txt.Visible = true
end if
i = i + 1
Loop
这样也可以试试0,0
因为最近再查如何跨表单 控制不同的控件 突然考古考到
顺便补充一下
令外请问有没有简单的方式可以跨表单控制不同控件0,0
a表单控件去影响b表单控件 这样
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: ※ 引述《zybaster (小赛)》之铭言：
: : 请问一下,
: : 如果想以do loop来一次控置相似名称之物件的属性
: : ex.有text1 text2...text10
: : 如果其中之一的isnull属性为ture,使对应的visible属性为false
: : 有办法用循环来一次运算嘛?
: i = 0
: Do While i < 10
: Set txt = Me.Controls("Text" & i)
: If txt.Text = "" Then txt.Visible = False
: i = i + 1
: Loop