List

wowa

Well-known member
01.02.2007
848
0
#1
В данном коде, я из вьюшки забираю коллекцию документов.. Из каждого документа, я забираю значение из поля№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, и не понял как с ним работать :(
 

wowa

Well-known member
01.02.2007
848
0
#2
Может я как-то непонятно выразил мысль...
Подскажите, как все-таки занести значения в list.
 

Kee_Keekkenen

Well-known member
05.09.2006
639
4
#3
Код:
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