ActiveReport 2.0 的问题（数组）

[wenxjie]

ActiveReport 2.0 我只需要一个预览功能，不需要数据库

Field1,Field2,Field3.........Field50

怎么实现控件数组那样呢？ 一个一个赋值太费劲了啊

For i= 1 To 50
Field（i）=XXXX
next i



请告知！！！

[Tiger_Zhao]

sub SetSameValue(byval Value, paramarray fields())
    dim i as long 
    for i=0 to ubound(fields)
        fields(i).Value = value
    next
end sub

'调用
SetSameValue XXXX, field1, field2, field3...field50

[wenxjie]

Tiger_Zhao

Field1 没有index 属性 我就不知道怎么样控件数组那样的赋值了。

你说的代码
SetSameValue XXXX, field1
ubound(fields) 总是 =0
fields(i).Value = value 根本连不到Field1 这个上面啊！

是我什么地方错了吗？

[colorslife]

ActiveReport2.0里面根本没有控件数组,VB中有

[Tiger_Zhao]

没有做成控件数组，只是用不定个数的参数方式由VB自动组成了一个数组的形式。

'UBound(fields)由参数个数决定
SetSameValue XXXX, field1 'UBound(fields)为0
SetSameValue XXXX, field1, field2 'UBound(fields)为1
SetSameValue XXXX, field1, field2, field3 'UBound(fields)为2

fields(i) '其中i是数组fields的下标，与参数field1、field2等无关