如何遍历Microsoft Access报表中的字段

Question

我有一张表Worklist，其中包含两个列Name和Pages。 现在，我想在报告中打印每个记录集的次数与Pages中的数字一样多，但我不知道如何循环遍历Pages字段。

表格

--------------------
|  Name  |  Pages  |
--------------------
|  Mike  |    1    |
--------------------
|  Phil  |    3    |
--------------------
|  Lisa  |    2    |
--------------------

报告输出应为：

Mike
Phil
Phil
Phil
Lisa
Lisa

Answer 1

这是一个可以满足您需求的代码。

它遍历所有行和循环然后遍历页面数。

希望这就是你要找的东西。

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