请教大家一个关于LOTUSSCRIPT数组的问题

[神勇无敌大将军]

我想实现依次从找到的文档中取出来的值
合并到一个列表中或者数组中
用LOTUSSCRIPT怎么写

[tobyzhou]

dim Arr() as string '定义数组
set doc = dc.GetFirstDocument() 'dc为已获得的文档记录集
dim i as integer
i = 0
redim preserve Arr(i)
Arr(i) = doc.itemname(0) '想要保存的值
set doc = dc.GetNextDocument(doc)
while not doc is nothing
i = i + 1
redim preserve Arr(i)
Arr(i) = doc.itemname(0)
set doc = dc.GetNextDocument(doc)
wend
for j = 0 to Ubound(Arr()) step 1
msgbox Arr(j) '查看是否已取得想要的结果
next

[ 本帖最后由 tobyzhou 于 2007-1-10 08:34 AM 编辑 ]

[muding428]

为什么查询出来的Arr[0]是空的?

[8bit_name]

用arrayappend简单一点，不用i = i + 1和redim了。