Vassilis K wrote:
> 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?
>
It is data dependent. What happens when
i = rsThesi!thesi
$alblTime[i] = NEW Label(ME)
where rsThesi!thesi is -5000?
Regards,
Werner
------------------------------------------------------------------------------
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
