LOCAL XiCombo, XiList
STORE 1 TO XiCombo, XiList
oC=ThisForm.MyCombo
oL=ThisForm.MyList
oC.Clear
oL.Clear
* umarım soruyu yanlış anlamadım ....
* oC ve oL RowsourceType=0 olmalı ve örneklerde 2 kolonlu
SCAN &&ilçeler - indexi dilediğin sıralamayı da belirler
DO CASE
CASE (comboya girme şartı ve seçilebilir şartı)
oC.AddListItem('Comboya girecek 1.item adı',XiCombo,1)
oC.AddListItem('Comboya girecek 2.item adı',XiCombo,2)
XiCombo=XiCombo+1
CASE (comboya girme şartı ve seçilmesin şartı)
oC.AddListItem('\'+'Comboya girecek 1.item adı',XiCombo,1)
oC.AddListItem('Comboya girecek 2.item adı',XiCombo,2)
XiCombo=XiCombo+1
CASE (listeye girme şartı ve seçilebilir şartı)
oL.AddListItem('listeye girecek 1.item adı',XiList,1)
oL.AddListItem('listeye girecek 2.item adı',XiList,2)
XiList=XiLİst+1
CASE (listeye girme şartı ve seçilemesin şartı)
oL.AddListItem('listeye girecek 1.item adı',XiList,1)
oL.AddListItem('\'+'listeye girecek 2.item adı',XiList,2)
XiList=XiLİst+1
ENDC
ENDS
&& başka şeyler de ekleyeceksen -istersen en başa koy
ol.AddListItem(listeye girecek 1.item adı',XiList,1)
ol.AddListItem(listeye girecek 2.item adı',XiList,2)
XiList=XiLİst+1
*
oc.AddListItem('\'+'Comboya girecek 1.item adı',XiCombo,1)
oc.AddListItem('Comboya girecek 2.item adı',XiCombo,2)
XiCombo=XiCombo+1
* döngüde diğer özellikleri şarta bağlayıp dilediğin yerde kullan...
VFP9 SP2