text(x)的循环 vb

来源：百度知道 编辑：UC知道 时间：2024/06/08 11:27:20
我有text1到text9.
我的数据更新。语句。。
rs_readerstyle.Fields(8) = Trim(Text1.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text2.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text3.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text4.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text5.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text6.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text7.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text8.Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
rs_readerstyle.Fields(8) = Trim(Text9.Text)

复制九个text1
for i = 1 to 9
rs_readerstyle.Fields(8) = Trim(Text1(i).Text)
rs_readerstyle.Update
rs_readerstyle.MoveNext
next i
rs_readerstyle.Update
rs_readerstyle.Close

Dim i As Control, r As String
For Each i In Controls
If LCase(Left(i.Name, 4)) = "text" Then
rs_readerstyle.Fields(8) = Trim(i.Text)
rs_readerstyle.Update
rs_readerstyle.Close
End If
Next i
几句话就搞定！

把这些TEXT文本框统一命令为一个名字，比如TEXT1
这时候系统会提示是否建立一个控件数组，选“是”。
每个文本框的INDEX属性为一个数字，指示的是该文本框的编号。
使用循环语句的时候定义一个整型变量如i;

for i = 0 to 8
rs_readerstyle.Fields(8) = Trim(Text1(i).Text)
next i

我发现你的代码里需要写的一个数据记录怎么都是第8个记录啊（rs_readerstyle.Fields(8)）
这个记录也可以用i赋值。如果和文本框的序号不一样可以用i+或-数字， 如rs_readerstyle.Fields(i+1)

下面供参考。 如果不是连续的话，建议用集合。

Option Explicit

Private Sub Command1_Click()
Dim i%
For i = 1 To 2
Print Me.Controls("Text"