PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Dropbox Combobox - Exemplo
WX - Dropbox Combobox - Exemplo
Iniciado por adrianoboller, jul., 13 2015 11:05 PM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 13 2015 - 11:05 PM




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