Redimensionar array en java
Publicado por JP (1 intervención) el 03/05/2014 15:53:38
Buenas tardes
Tengo este código en VBS y necesito pasarlo a Java
He intentado varias soluciones para poder realizar Redim y Redim Preserve, pero no me ha funcionado ninguna
Alguien me presta una ayuda
Muchas gracias por adelantado
Tengo este código en VBS y necesito pasarlo a Java
He intentado varias soluciones para poder realizar Redim y Redim Preserve, pero no me ha funcionado ninguna
Alguien me presta una ayuda
Muchas gracias por adelantado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim cControls
set cControls = New controles ' As long as there are entries in the recordset NumFilas = 0
Do While iStatus = 0
'Joan 15/05/2007 Quito todos los resume Next 'On Error Resume Next If NumFilas = 0 then
NumFilas = 1
Redim cControls (NumFilas)
'NumFilas = UBound(cControls,1) Else
NumFilas = NumFilas + 1
Redim Preserve cControls (NumFilas)
NumFilas = UBound(cControls,1)
End if
Set cControls(NumFilas) = new controles
' Get the FieldnamecControls(NumFilas).ITEM_NAME = oRes.Fields("v_nomitem")
' Get the type of the mergefield cControls(NumFilas).ITEM_TYPE = oRes.Fields("v_type")
' Get the name of the mergefieldcControls(NumFilas).ITEM_LABEL = oRes.Fields("v_label")
cControls(NumFilas).ITEM_CODETABLE = oRes.Fields("v_codetable")
cControls(NumFilas).ITEM_CODEFELD = oRes.Fields("v_codefeld")
iStatus = oRes.readnext
Loop
Valora esta pregunta
0