在我的Access 2016报告中,我有10个名为txt1到txt10的控件,我想从表中的记录中填充它们。有没有办法根据我的计数器增加循环中的控件名称?
像这样的东西。显然Me.txt(计数器)不是一个数组,但我可以为我想做的最好的表示。
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim counter as integer
Set db=CurrentDatabase
Set rs=db.OpenRecordSet("SELECT * FROM table WHERE variable = " & something)
If Not rs.EOF Then
rs.MoveFirst
counter = 1
Do Until rs.EOF
Me.txt(counter) = rs.Fields("field1")
counter = counter + 1
rs.MoveNext
Loop
End If
谢谢!
答案 0 :(得分:0)
使用以下内容:
Me("txt" & counter) = rs.Fields("field1")