JGD
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 01/12/2006 15:03 hs
Olá Pessoal Estou preciso acescentar novos itens em um array que já tem itens dinamicamente... Na pratica tenho que ler os itens dos dois array (array1 e array2) e colocar em array3... Certo ?! Agradeço qualquer ajuda. JGD |
|
|
|
|
|
|
|
Postada em 01/12/2006 15:53 hs
Pode dar um exemplo com algum dado por favor?? Obrigado :) |
|
|
|
JGD
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/12/2006 16:12 hs
Ok Tenho 2 array Array1(0) = "Item 1"
Array1(1) = "Item 2"
Array1(2) = "Item 3"
Array2(0) = "Item 1"
Array2(1) = "Item 2"
q1 = UBound(Array1)
q2 = UBound(Array2) qt = q1+q2 ReDim Array3(qT) For I = 0 To qT
For j = 0 To qT
Array2(I) = gDBVetor3(j)
Next j
Next I
Estou tentando assim.... mas sei que tá errado !!!
pois as qtdes de indices individuas não são iguais (Array1 =3 eArray2=2)
Aí ta pau !
|
|
|
|
|
|
Postada em 01/12/2006 16:13 hs
corrigindo : ReDim Array3(qT) For I = 0 To qT
For j = 0 To qT
Array2(I) = Array1(j)
Next j
Next I |
|
|
|
|
|
Postada em 01/12/2006 16:48 hs
Tenta assim: Dim a1, a2, a3
a1 = Array("1", "2", "3")
a2 = Array("4", "5", "6") a3 = Split(Join(a1, ";") & ";" & Join(a2, ";"), ";")
at+ |
|
|
|
JGD
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/12/2006 17:54 hs
Acontece que os array´s são dinamicos.... pelo menos o 2ª ! aí não vira ! |
|
|
|
