Array og getrows

Så bliver du nødt til selv at redimsionere et nyt array og efterfølgende kopiere værdi for værdi - i stil med (bær over med evt. småfejl - det er et dump fra hovedet....:-)
<CODE>
..
Arr1=rs1.getrows()
Arr2=rs2.getrows()

'opret et 3. array eller anvende "preserve" funktionaliteten
dim Arr3
Redim Arr3(ubound(arr1),ubound(arr1,2)+ubound(arr2,2))

for i=0 to ubound(arr1,2)
  for j=0 to ubound(arr1)
      Arr3(i,j)=arr1(i,j)
  next
next
for i=0 to ubound(arr2,2)
  for j=0 to ubound(arr2)
      Arr3(i+ubound(arr1,2),j)=arr2(i,j)
  next
next
</CODE>

/CAPAJ