刷新/重新查询组合框问题
Posted
技术标签:
【中文标题】刷新/重新查询组合框问题【英文标题】:Refresh/Requery Combobox problems 【发布时间】:2013-01-23 02:53:49 【问题描述】:下午,
我在 ComboBox 所在的表单打开时更新它时遇到问题。
表单打开时我的数据会发生变化,因此需要刷新组合框,但我不知道如何刷新。似乎唯一的方法是关闭然后重新打开表单,但我不是真的
ComboBox 的原始源是一个简单选择查询。我尝试过使用 requery,但它似乎没有做任何事情。
Sub ComboBox_GotFocus()
Me.ComboBox.Requery
End Sub
有什么想法吗?
干杯, 迈克尔
【问题讨论】:
【参考方案1】:清空并重新填充组合框。 最简单的是:
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")
循环组合框以添加多行。
【讨论】:
完美,使用了第一个解决方案,感谢您提供添加/删除值的提示!以上是关于刷新/重新查询组合框问题的主要内容,如果未能解决你的问题,请参考以下文章