ComboBox ta me tirando o sono

[pena]

pessoal, é uma coisa simples de fazer, mas to ficando sem cabelo, isso nao funciona de jeito algum, a situcao é a seguinte, tem um combobox com as ufs, e que por sua vez eu verifico a uf e ja preencho um combobox com os municipios somente daquela uf, até aqui tudo bem, so que se eu mudo de UF, ou mesmo se clicar no combobox dos municipios eu chamo uma rotina

Código: Selecionar todos

@ 100,390 COMBOBOX T_Municipio ;
WIDTH 200 ;
ITEMS aMunicipio ;
VALUE PMunicipio ;
FONT 'Arial' SIZE 09 ;
FONTCOLOR BLACK BOLD ;
ON GOTFOCUS Le_Municipio()

Function Le_Municipio()
Local mfu:=LEFT(Frm_empresa.T_uf.displayvalue,2),VCOD:=0
Try
oUf:=CreateObject("ADODB.Recordset")
Catch e
MsgStop("Operação: "+E:operation+"-"+"Descrição: "+E:Description+chr(10)+vMat(e:Args))
Return
end
oUf:Open("SELECT codigo FROM uf WHERE uf = '"+MFU+"' ORDER BY uf",CNN,2,3)
IF oUf:Eof()
MsgStop("Erro ao Ler Uf")
RETU NIL
ELSE
vCod:=oUf:Fields["CODIGO"]:Value
ENDIF

Try
oMunicipio:=CreateObject("ADODB.Recordset")
Catch e
MsgStop("Operação: "+E:operation+"-"+"Descrição: "+E:Description+chr(10)+vMat(e:Args))
Return
end
vMunicipio:=PMunicipio:= 0
oMunicipio:Open("SELECT municipio.codigo,municipio.municipio FROM municipio where municipio.uf = "+str(Vcod,3)+" ORDER BY municipio",CNN,2,3)
Frm_Empresa.T_Municipio.deleteallitems()
aMunicipio:={}
Do While ! oMunicipio:Eof()
municipio=Strzero(oMunicipio:Fields["CODIGO"]:Value,7)+ [-]+oMunicipio:Fields["MUNICIPIO"]:Value
aadd ( aMunicipio , municipio )
oMunicipio:MoveNext()
Enddo

Retu nil

O problema é o seguinte, como eu mudei de UF, eu uso Frm_Empresa.T_Municipio.deleteallitems(), e a rotina abaixo esta funcionando perfeitamente, o problema é que o combobox vem vazio, nao sei mais o que fazer, se nao coloco esse maldito comando, ae mistura a uf anterior com a que selecionei

Nota de Moderação:
por Maligno: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: faq.php?mode=bbcode#f2r1

[alxsts]

Olá!

Você já analisou os exemplos da MiniGUI?

Só de combobox tem uma dúzia... Não olhei por falta de tempo mas, veja este C:\hmg\SAMPLES\COMBO.9 (pelo menos tem uma tabela de cidades na pasta).

[pena]

descobri
ao inves de
aadd ( aMunicipio , municipio )
por
add item ( aMunicipio , municipio ) TO T_Municipio OF Frm_Empresa

funcionou blz