我有一张桌子,上面Worklist
有两个柱子Name
和Pages
。现在,我想在报告中打印每个记录集的次数与其中的次数一样多,Pages
但是我不知道如何遍历该Pages
字段。
桌子:
--------------------
| Name | Pages |
--------------------
| Mike | 1 |
--------------------
| Phil | 3 |
--------------------
| Lisa | 2 |
--------------------
报告输出应为:
Mike
Phil
Phil
Phil
Lisa
Lisa
这是执行您想要的代码。
它遍历所有行,然后遍历页面数。
希望这就是您想要的。
Private Sub loopfiles()
Dim mydb As DAO.Database
Dim Rst As DAO.Recordset
Set mydb = CurrentDb
Set Rst = mydb.OpenRecordset("Table1", dbOpenDynaset)
Rst.MoveFirst
Do While Not Rst.EOF
mystring = ""
For i = 1 To Rst![Pages]
mystring = mystring & Rst![Name1] & " "
Next i
MsgBox Left(mystring, Len(mystring) - 1)
Rst.MoveNext
Loop
Rst.Close
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句