下午,
我的ComboBox在其打开的表单处于打开状态时进行更新时遇到问题。
我的数据在表单打开时发生了变化,因此需要刷新ComboBox,但我无法弄清楚如何。似乎唯一的方法是关闭然后重新打开表单,但我不是真的
ComboBox的原始源是Simple Select查询。我尝试过使用requery,但它似乎没有做任何事情。
Sub ComboBox_GotFocus()
Me.ComboBox.Requery
End Sub
有什么想法吗?
干杯, 迈克尔
答案 0 :(得分:4)
清空并重新填充组合框 最简单的是:
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")
循环组合框以添加多行。