#1 Mon 18 October 2010 15:03
- ebiseau
- Participant actif
- Date d'inscription: 6 Sep 2010
- Messages: 98
Problème dimensionnement tableau - Valeur hors limite
Bonjour je cherche à remplir un tableau avec les titres des colonnes 13 jusqu'à la fin de ma table.
J'ai écrit ceci :
Sub main
redim tablo (tableinfo(pts2,TAB_INFO_NCOLS)-13)
For i=0 to (tableinfo(pts2,TAB_INFO_NCOLS)-13)
j=i+13
tablo(i) = columninfo(pts2,"col"&j,col_info_name)
Next
Call dialog1
End sub
sub dialog1
Dialog
Title "Evolution entre la semaine 1 et la semaine 2"
Width 300
Height 200
Position 150,150
control statictext
position 20,40
width 60
id 3
title "Semaine 1"
show
control statictext
position 100,40
width 60
id 4
title "Semaine 2"
show
control listbox
position 20,50
width 60
height 100
title from variable tablo ()
value i
id 1
control listbox
position 100,50
width 60
height 100
title from variable tablo ()
value i
id 2
control cancelbutton
title"Quitter"
position 110, 180
width 50
id 5
control button
position 180, 90
title "lancer la comparaison"
id 6
calling miseajourcolonne
width 100
end sub
Or j'ai le message d'erreur suivant quand j'exécute le mbx : "valeur hors limite" et cela concerne la ligne :
tablo(i) = columninfo(pts2,"col"&j,col_info_name)
Merci pour votre aidre :-)
Hors ligne
#2 Mon 18 October 2010 15:11
- jean94
- Participant assidu
- Date d'inscription: 13 Aug 2009
- Messages: 436
Re: Problème dimensionnement tableau - Valeur hors limite
Bonjour,
Essaie ceci pour ta sub main
Code:
Sub main redim tablo (tableinfo(pts2,TAB_INFO_NCOLS)-13) For i=1 to (tableinfo(pts2,TAB_INFO_NCOLS)-13) j=i+12 tablo(i) = columninfo(pts2,"col"&j,col_info_name) Next Call dialog1 End sub
Je crois qu'on ne peu avoir tablo(0)...j'ai remplacer ar tablo(1)
JF
Dernière modification par jean94 (Mon 18 October 2010 15:12)
Hors ligne
#3 Mon 18 October 2010 15:28
- ebiseau
- Participant actif
- Date d'inscription: 6 Sep 2010
- Messages: 98
Re: Problème dimensionnement tableau - Valeur hors limite
C'est tout à fait, dingue de ne pas avoir essayé alors que j'ai cru tout tenter ;-)
En tout cas, merci :-)
Hors ligne