Le portail francophone de la géomatique

Declare sub main
Declare sub proc_remplir_liste

Sub main
'création d'un formulaire avec 2 listes déroulantes, 1 bouton de lancement de procédure, 1 bouton quitter
Dialog
    Title "Comparaison de 2 semaines au choix"
    Width 300
    Height 200
    Position 150,150

'liste deroulante 1
    control listbox
        position 30,50
        width 60
height 100
id 1 calling proc_remplir_liste
title "semaine 1"
'into tout_tab

'liste deroulante 2
    control listbox
        position 30,50
        width 60
height 100
id 1 calling proc_remplir_liste
title "semaine 2"
'into tout_tab

'bouton quitter
    control cancelbutton
    title"Quitter"
    position 110, 180
width 50 
id 5
end sub

'procedure permettant de remplir les listes déroulantes
sub proc_remplir_liste
dim i as integer
dim tablo () as string
    I=0
    For i=1 to tableinfo(pts2,TAB_INFO_NCOLS)
    Tablo(i)= columninfo(pts2,"col"&I,col_info_name)
Next
End sub