I changed it as you said :
PRIVATE $alblTime AS NEW Object[]
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
DIM iD AS Long
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax =
0")
FOR iD = 0 TO rsThesi!AA
i = rsThesi!thesi
$alblTime[i] = NEW Label(ME)
$alblTime[i].Background = Color.Red
NEXT
MODMain.$Con.Commit()
END
Now I get "Out of bounds" error at line : $alblTime[i] = NEW Label(ME)
Did I make something wrong?
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
