Тема: Заполнение раскрывающегося списка
Первый опыт работы с формой в TCS 6.2.
Пытаюсь заполнить раскрывающийся список (как в VB)
Sub FormEvent_OnFormCreate(FormRegistr) 'Form As ITCSForm Set ComboBox_0 = FormRegistr.Controls("ComboBox_0") ... Set Spr_Atr = TCSapp.DocParams If Not Spr_Atr Is Nothing Then If Spr_Atr.Locate("Guid", GUID_Atr, 0) Then Set Atr_List = Spr_Atr.Properties("VALUELIST").AsIDispatch If Not Atr_List Is Nothing Then Atr_List.First s = 0 Do While Not Atr_List.EOF With ComboBox_0 .AddItem (Atr_List.Properties("VALUE").DisplayText) End With s = s + 1 Atr_List.Next Loop End If Set Atr_List = Nothing End If End If Set Spr_Atr = Nothing ...
Появляется сообщение "Объект не поддерживает этот метод или свойство" на ".AddItem...".
Такая же ошибка была на ".RemoveItem (0)" в коде
With ComboBox_0 If s = 0 Then ComboBox_0.RemoveItem (0) 'Удаление единственного пустого элемента ComboBox_0.Refresh End If .AddItem (Atr_List.Properties("VALUE").DisplayText) End With
Подскажите, пожалуйста, как заполнить Items в VBScript?