清除组合框并将索引重置为 -1

Question

我一直在为我的数据库类做一个数据库项目，但我被困在最荒谬的事情上;清除我的一个表单中的值组合框。几个小时以来，我一直在试图弄清楚如何做到这一点，但我做不到。ComboBox 有一个控件源，将其链接到一个属性，该属性是日期/时间的数据类型，格式为短时间 (hh：ss(

我已经尝试了一些方法，但没有任何效果，例如：

ComboBox1.Items.Clear() 

但这行不通，因为 Items 属性在 Access 的 VB 版本中甚至不存在，我运行的 Access 2019 具有适用于应用程序的 VB 7.1。互联网上的大多数东西都建议这种方法。

我还尝试了一种相当古怪的方法：

index = Combo39.ListIndex
Dim indexc As Integer
indexc = 0
If index = -1 Then
'do nothing because its already empty
Else
Do
Combo39.RemoveItem (indexc)
If indexc = index Then
Exit Do
End If
indexc = indexc + 1
Loop
End If

此代码基本上循环，直到循环循环的次数与组合框的索引号相同。我不知道为什么，但它不起作用。它似乎确实删除了一些东西，但不是所有东西。就好像循环很早就打破了。

我非常需要帮助，我已经完全不知道如何做这件简单的事情。我将非常感谢帮助，谢谢。

Answer 1

由于您的组合框似乎有一个值列表作为其行源，您只需要清除它：

Me!Combo39.RowSource = ""