刷新/重新查询组合框问题

下午，

当我的组合框所在的表单打开时，我在更新组合框时遇到问题。

我的数据在表单打开时发生变化，因此需要刷新组合框，但我不知道如何刷新。似乎唯一的方法是关闭然后重新打开表单，但我不知道

ComboBox 的原始源是一个简单的选择查询。我尝试过使用 requery，但似乎没有任何作用。

Sub ComboBox_GotFocus()

Me.ComboBox.Requery

End Sub

有任何想法吗？

干杯， 迈克尔

清空并重新填充组合框。
最简单的是：

sSQL_Select = "SELECT * FROM SOMETABLE" 

Me.lstListBox.RowSource = "" 
Me.lstListBox.RowSource = sSQL_Select

您还可以向列表框显式添加值，而不是使用 SQL 查询。
在此您可以执行以下操作：

Dim iList_Cnt As Integer
Dim iCnt As Integer

iList_Cnt = Me![lstListBox].ListCount

For iCnt = 0 To iList_Cnt - 1
    Me![lstListBox].RemoveItem 0
Next

然后重新填充列表框：

lstListbox.AddItem("Smtg_Col1;Smtg_Col2;Smtg_Col3")

循环组合框以添加多行。