如何删除Access 2007中dropdownList中的所有项目？

Question

我有一个referesh条件，之后Access 2007表单下拉列表中的项目会被更改。

For i = LBound(ddlRequestorNM) To UBound(ddlRequestorNM)
ddlRequestorNM.RemoveItem (i)
Next

上面的代码与Array out of index错误。我开始知道，每次删除项目，数组索引都超出范围。有人请一次删除所有项目。

Answer 1

您应该按相反顺序删除项目：

For i = UBound(ddlRequestorNM) To LBound(ddlRequestorNM) Step -1

否则每次删除它们时都会重新编制索引，最终尝试引用不存在的项目。

---

对于标准的ComboBox，您可以使用ddlRequestorNM.RowSource = ""清除所有项目。

Answer 2

您也可以简单地迭代正确的次数，每次删除第一个元素：

For i = LBound(ddlRequestorNM) To UBound(ddlRequestorNM)
    ddlRequestorNM.RemoveItem 0
Next