有没有这样的循环form2.texti.text=rs(i)？

Question

with form2
.Text2.Text = rs(1)
.Text3.Text = rs(2)
.Text4.Text = rs(3)
.Text5.Text = rs(4)
.Text6.Text = rs(5)
.Text7.Text = rs(6)
end with
可不可以用类似
for i=1 to 7
form2.texti.text=rs(i)
nexti
之类的循环替代啊？

Answer 1

可以
只要text是控件数组即可

Answer 2

应该是:
for i=1 to 7 
form2.text & i.text=rs(i) 
next i 

Answer 3

上面有错。
for i=1 to 7 
form2.text & i=rs(i) 
next i 

Answer 4

控件数组,或者用controls集合.
Private Sub Command1_Click()
    Dim i As Long
    For i = 1 To 6
        Me.Controls("Text" & i).Text = CStr(i)
    Next
End Sub