ms-access - 在 ms 访问表单中检查列表中的最后一个元素

Question

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

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”结束此循环，然后通过“If r = Null Then Exit Do”结束此循环，但在这两种情况下都没有工作。当它有值时，空循环仍在工作。

表单调试中的列表视图

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 属性迭代到列表的末尾。

请参阅这篇文章：在 MS Access 列表框中循环浏览值