У меня есть форма с несколькими полями со списком, эти поля имеют 2 списка столбцов, где ширина столбца 0 равна нулю. Все эти поля имеют источники строк, определенные для их выпадающих списков.Обновление отображения для Combo Box
Когда я пытаюсь переместить отображаемое значение со списков с помощью кода vb, он работает для нескольких элементов управления, а ничего не делает для остальных. Поэтому я сделал изолированный код, чтобы обновить значения всех комбинированных полей (cbo), и снова те же элементы управления проходят/терпят неудачу. Вот код, с которым я пытаюсь работать, может ли кто-нибудь рассказать мне, почему я не могу обновить некоторые комбинированные поля, в то время как другие работают нормально?
Спасибо!
Sub test()
Dim Ctrl As Control
Dim CtrlName_Combined as String
For Each Ctrl In Forms("frmNewTransaction").Controls
'Name of all combo boxes start with 'cbo'
If Left(Ctrl.Name, 3) = "cbo" Then
Ctrl = "Hello"
CtrlName_Combined = ctrlName_Combined & Ctrl.Name & " "
End If
Next Ctrl
MsgBox CtrlName_Combined
End Sub
Вот скриншот формы после кода запуска (все коробки Combo начать с СВО):
Мое предположение было бы в том, что комбокс, которые не работают, имеют 'LimitToList = True', поэтому они не принимают произвольные значения, такие как« Hello ». – Andre
@ Andre451 Все Comboxes имеют 'LimitoList = Yes' и 'Allow Value Editing = Yes', включая те, которые работают – Codex
@ Andre451 Кроме того, этот код приветствия является тестом, я изначально пытался изменить значения каждого комбо из в пределах sub в соответствии с его значениями источника строки, когда я понял, что некоторые комбо просто не нажимают – Codex