Combo ошибка

[abbot]

Не пойму почему выдается ошибка Text Property is read-only в следующем участке кода и как можно ее обойти:

cboPosition.Text = cboPosition.List(GetIndex(cboPosition, rs.Fields("AssignedPersonPositionID")))

Public Function GetIndex(ByRef oCombo As ComboBox, ByVal nID As Long) As Long
Dim i As Long
Dim nIndex As Long
nIndex = -1
With oCombo
For i = 0 To .ListCount - 1
If .ItemData(i) = nID Then
nIndex = i: Exit For
End If
Next i
End With
GetIndex = nIndex
End Function

[alibek]

Скорее всего потому, что cboPosition.Style=2. Укажи Style=0.
Да и вообще я не понимаю, зачем ты используешь этот код. Замени на:

Код: Выделить всё

cboPosition.ListIndex = GetIndex(cboPosition, rs.Fields("AssignedPersonPositionID"))

будет гораздо правильнее

[abbot]

Сорри, забыл пояснить. 2 таблицы Одна содержит данные на юзера , и ID характеристик. Характеристки определнны по этим ID в др. таблице. Теперь к примеру юзер нажимает Find и затем в комбо боксы(уже заранее заполненые при загрузке формы данными из таблицы с характеристиками) встают нужные значения по этому юзеру. Потом юзер конечно сможет их изменить при надобности.
Style combobox=2 и если честно не хотелось бы менять его т.к. иначе придется форму перекроить полностью, что не очень желательно.
Я попробовал ваш совет но нужные значения на встают при нажатии Find.

[alibek]

Когда Style=2 свойство Text изменять нельзя, оно только для чтения.
Задавай не .Text, а .ListIndex. И твою процедуру я бы советовал заменить на

Код: Выделить всё

Function GetIndex(ListControl As Object, ByVla ItemID As Long) As Long
Dim I As Long
For I = ListControl.ListCount-1 To 0 Step -1
  If ListControl.ItemData(I) = ItemID Then Exit For
Next I
GetIndex = I
End Function

и код cboPosition.ListIndex = GetIndex(cboPosition, rs!AssignedPersonPositionID) должен работать железно, если у тебя ComboBox загружается правильно

[abbot]

Я вас наверное уже достал , но блин не ставит он нужное значение. Я уже и по книге посмотрел - ListIndex должен работать. А все равно значение не ставит. Где же баг лежит. Функцию тоже по вашему совету переделал.

[abbot]

Combo box заполняется следующим образом при загрузке формы

Do Until rsPosition.EOF
cboPosition.AddItem (rsPosition.Fields("Position") & " ")
cboPosition.ItemData(cboPosition.NewIndex) = rsPosition.Fields("ID")
rsPosition.MoveNext
Loop

[alibek]

Загрузка правильная... Глюк какой-то.
Попробуй на этой строке (.ListIndex) поставить брэкпойнт и посмотри, чему равно выражение функции ListIndex. А затем посмотри, что загружено в ComboBox.
Да, и прогони в пошаговом режиме. Возможно у тебя где-то рекурсия стоит (например, в событии cboPosition_Click стоит что-то, что в конечном итоге еще раз изменяет значение ListIndex).

[abbot]

Нашел ошибку наконец. У меня там проверка при зполнении стояла которая исключила необходимый вариант из комбо. Спасибо