Очистка ComboBox и сброс индекса на -1 - PullRequest
0 голосов
/ 06 января 2020

Я работал над проектом базы данных для моих классов базы данных, но я застрял в самой нелепой вещи; очистка ComboBox значений в одной из моих форм. Я пытался понять, как это сделать часами, но я не могу этого сделать. ComboBox имеет источник управления, связывающий его с атрибутом, который представляет собой тип данных Дата / Время, отформатированный как короткое время (чч: сс)

Я пробовал несколько вещей, но на самом деле ничего не работает, например, :

ComboBox1.Items.Clear() 

, но это не сработает, потому что свойство Items даже не существует в версии VB для Access, я запускаю Access 2019 с VB для приложений 7.1. Большинство вещей в Inte rnet предлагают такой подход.

Я также попробовал довольно странный метод:

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

Этот код в основном циклически повторяется до тех пор, пока l oop Значение cycled совпадает с порядковым номером поля со списком. Я не уверен почему, но это не работает. Это, кажется, удаляет некоторые вещи, но не все. Это как если бы l oop сломался рано.

Мне очень нужна помощь, я полностью объяснил, как сделать эту простую вещь. Я был бы очень признателен за помощь, спасибо.

1 Ответ

1 голос
/ 06 января 2020

Поскольку ваш комбобокс, кажется, имеет список значений в качестве источника строк, все, что вам нужно, это очистить это:

Me!Combo39.RowSource = ""
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...