Table 1 Table 2
1 1 a
2 1 b
3 1 c

I want to concatenate a b c onto a single details line for the value in Table 1.

This is as far as I got but the array only ever returns 1 value and so the loop never works.


Dim arrTestodes
arrTestodes = array({Table2.Column2})

Dim i
Dim stringoftests
i = 1

Do while i <= ubound(arrTestodes)
if i < 2 then
stringoftests = totext(arrTestodes(i))
else
stringoftests = stringoftests + ", " + ToText(arrTestodes(i))
end if
i = i + 1
Loop
formula = stringoftests


Where am I going wrong?
Thanks