ComboBox ta me tirando o sono
Enviado: 22 Out 2010 20:53
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
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
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 nilpor Maligno: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: faq.php?mode=bbcode#f2r1