下午，
我在 ComboBox 所在的表单打开时更新它时遇到问题。
表单打开时我的数据会发生变化，因此需要刷新组合框，但我不知道如何刷新。似乎唯一的方法是关闭然后重新打开表单，但我不是真的
ComboBox 的原始源是一个简单选择查询。我尝试过使用 requery，但它似乎没有做任何事情。
Sub ComboBox_GotFocus()
Me.ComboBox.Requery
End Sub
有什么想法吗？
干杯， 迈克尔
【问题讨论】：
标签： ms-access vba ms-access-2003
清空并重新填充组合框。
最简单的是：
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")
循环组合框以添加多行。
【讨论】：