• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

List

  • Автор темы wowa
  • Дата начала
W

wowa

В данном коде, я из вьюшки забираю коллекцию документов.. Из каждого документа, я забираю значение из поля№1 и составляю строку vListForm
' получаем коллекцию документов по ключу
Set dc = vw.GetAllDocumentsByKey (vUnidNameDoc, False )
Set doc = dc.GetFirstDocument

' получаем формы, которые раньше выбирали
vCount=dc.Count
While(Not vCount=0)
vFormName = doc.GetItemValue( "поле№1" )
Set doc = dc.GetNextDocument(doc)
vListForm = vListForm &Chr(10)&vFormName(0)
vCount=vCount -1
Wend
Подскажите пожалуйста...
Мне нужно не строка, а Dim listform List (вроде так пишется). А то я посмотрел хелпник по List, и не понял как с ним работать :(
 
W

wowa

Может я как-то непонятно выразил мысль...
Подскажите, как все-таки занести значения в list.
 
K

Kee_Keekkenen

Код:
dim vListForm list as string

' получаем коллекцию документов по ключу	
Set dc = vw.GetAllDocumentsByKey (vUnidNameDoc, False )
Set doc = dc.GetFirstDocument

' получаем формы, которые раньше выбирали
vCount=dc.Count
While(Not vCount=0)
vFormName = doc.GetItemValue( "поле№1" )
vListForm(vCount) = doc.GetItemValue( "поле№1" )(0)
Set doc = dc.GetNextDocument(doc)
vCount=vCount -1
Wend
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!