如何在按钮单击事件上填充 MS 访问的列表框

Question

我在 VBA 中有一个子程序，我在按钮单击事件中从数据库中获取数据 如下所示

Public Sub getNearestPfk(runNR As Integer)
Dim DB As dao.Database
Dim rs As dao.Recordset
Dim sqlString As String
Dim record As Object
Dim objPFK As Pfk

Dim i As Integer

i = 0


Set DB = CurrentDb
sqlString = " SELECT TOP 5 T_TEMP_DESTANCE_CAL.* FROM T_TEMP_DESTANCE_CAL WHERE RUNID = " & runNR & " ORDER by DISTANCE "
MsgBox (sqlStringGetNearestPFK)

Set rs = DB.OpenRecordset(sqlString)

Do Until rs.EOF

objPFK.ID = rs!ID
objPFK.fistName = rs!firstName
objPFK.lastName = rs!lastName
objPFK.distance = rs!distance
objPFK.duration = rs!duration
objPFK.address = rs!address

arrayObjPFK(i) = objPFK


rs.MoveNext
i = i + 1
Loop


rs.Close
Set rs = Nothing
Set DB = Nothing


End Sub

现在我有了我想要显示的所有数据

我应该如何在列表框中显示此数据，以便在此按钮上单击列表框将填充

Answer 1

您可以将名为Row Source Type 的列表框属性设置为Table/Query，然后将Row Source 属性设置为SQL 语句。

如果要更新列表框，只需更新行源即可。