WX - Dropbox Combobox - Exemplo

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/356-dropbox-combobox-exemplo/read.awp

---

---

---

Procedure Dropbox_Localidade()

arrTemp is array of string

ArrayDeleteAll(arrTemp)

ArrayAdd(arrTemp," ")

ok is boolean = HExecuteQuery(QRY_Select_Localidades,hQueryDefault)

IF ok = True //retornou um data source valido

//Leitura da Query que vai alimentar o Dropbox
FOR EACH QRY_Select_Localidades

//Alimenta o dropbox se tiver registros no data source
IF QRY_Select_Localidades.nom_locali <> "" THEN //Alimenta o dropboxse satisfazer a condição
ArrayAdd(arrTemp,QRY_Select_Localidades.nom_locali) //Alimenta o dropbox
END //Alimenta o dropbox

END

ArrayAdd(arrTemp," ")

//Dropbox
IF ArrayCount(arrTemp) > 0 THEN

ArrayDeleteDuplicate(arrTemp)

ListDeleteAll(COMBO_CidadeOrigem)

FOR EACH elemento OF arrTemp
ListAdd(COMBO_CidadeOrigem,elemento)
END

ListSelect(COMBO_CidadeOrigem,ListSeek(COMBO_CidadeOrigem," "))

END

END

---

---

---

---

---