Доброго времени суток.
Работаю с базой семёрки через vbs + OLE.
Мне нужно получить все значения перечисления "ВидРемонта". Делаю так:

'Получить значения

Set nWK = Base.Enum.GetAttrib("ВидРемонта")
nAll = nWK.Count()

For i = 1 to nAll

 Str = Str & nWK.ValueByIndex(i).Identifier & vbCrLf

Next

'Значения получены

Вот эта конструкция "nWK.ValueByIndex(i).Identifier" получает Идентификатор перечисления, а мне нужно получить Представление, на худой конец Комментарий. Как это сделать - ума не приложу... Может, кто сталкивался?

Оффтоп
Как тут отредактировать своё сообщение?

(1) никак. можно только попросить удалить его или ветку

(0) Извращенец :)

(3) Что именно навело вас на это высказывание?
Вы знаете другой способ получить значения перечисления?

Base.Metadata.Enum() - количество перечислений
Base.Metadata.Enum(Number) - конкретное перечисление
Base.Metadata.Enum(Number).Present - представление перечисления
Base.Metadata.Enum(Number).Value() - количество значений
Base.Metadata.Enum(Number).Value(ValueNumber) - конкретное значение
Base.Metadata.Enum(Number).Value(ValueNumber).Present - представление конкретного значения

(5) Преогромное спасибо. Тему можно закрыть.