Question

我在检查ms访问列表中的最后一个元素时遇到问题，并将最后一个值放到label中。我用循环来实现这个目的：

Private Sub lstAbgänge_DblClick(Cancel As Integer)

i = 0
r = 0

Do Until Me.lstAbgänge.Column(0, i) = Null
   i = i + 1
   r = Me.lstAbgänge.Column(0, i)
   If r = Null Then Exit Do
Loop

'Me.lblVorgangNr.Caption = Me.lstAbgänge.Column(0, i - 1)

End Sub

我的问题是循环是无休止的，我已经尝试通过条件“Me.lstAbgänge.Column（0，i）= Null”结束这个循环，接下来是“如果r = Null然后退出Do”，但在这两种情况下它不起作用。当它有值时，Null循环仍在工作。

View of list in form Debbuging

Answer 1

尝试这样的事情：

Private Sub lstAbgänge_DblClick(Cancel As Integer)

    Dim i as Integer
    For i = 0 to Me.lstAbgänge.ListCount - 1
        Debug.Print Me.lstAbgänge.Column(0, i)
    Next i

End Sub

您需要使用ListCount属性迭代到列表的末尾。

请参阅此帖子：cycling through values in a MS Access list box

以ms访问形式检查列表中的最后一个元素

1 个答案: