SETAR ITEMDATA DO COMBOBOX

DHELP 22/12/2011 19:38:30
#391881
Olá pessoal,

Estou com uma dúvida. Eu preencho um combobox dessa forma:

cboTipoPessoa.AddItem rs!Estado
cboTipoPessoa.ItemData(cboTipoPessoa.NewIndex) = rs!CodEstado

Até aqui tudo beleza. Eu criei uma lista para efetuar consulta neste cadastro.

Quando o usuário clica no cliente na lista de clientes eu atualizo os campos no form. Mas não estou conseguindo fazer que atualize o combobox de estado assuma o [Ô]CodEstado[Ô] cadastrado na tabela de cliente.

Alguém pode me dá uma força?

Obrigado.
RONALD.OTAVIO 23/12/2011 20:48:29
#391920
Já tentou colocar [txt-color=#007100]combo.text = rs!CodEstado[/txt-color] ?
RONALD.OTAVIO 23/12/2011 21:00:25
#391921
Acho que agora que entendi do que precisa.

tente:

[txt-color=#e80000]Combo2.ListIndex = rs!CodEstado, caso o CodEstado começar com 0.[/txt-color]

Se CodEstado começar com 1, tente:

[txt-color=#e80000]Combo2.ListIndex = rs!CodEstado -1[/txt-color]
TECLA 24/12/2011 00:48:52
#391929
Citação:

:
Acho que agora que entendi do que precisa.

tente:

[txt-color=#e80000]Combo2.ListIndex = rs!CodEstado, caso o CodEstado começar com 0.[/txt-color]

Se CodEstado começar com 1, tente:

[txt-color=#e80000]Combo2.ListIndex = rs!CodEstado -1[/txt-color]



Se o colega trabalhar com códigos de estados não-sequenciais (ex. 1=Acre, 5=Alagoas, 15=Amapá...), a rotina acima deve gerar uma exceção a cada código de estado não encontrado.

POG1:
Fazer um loop nos itens do COMBO e verificar se o código do ITEMDATA é igual ao registro da BASE.
[txt-color=#0000f0]for i=0 to combo1.listcount - 1
if RS!CODESTADO = combo1.itemdata(i) then
combo1.listindex = i
end if
next i[/txt-color]

POG2:
Fazer uma seleção na tabela de ESTADO e obter a descrição do campo para setar o valor ao COMBO.
[txt-color=#0000f0]RS.open [Ô]SELECT descricao_do_estado FROM tabela WHERE codigo_do_estado=[Ô] & 1100, con
combo1.text = RS!DESCRICAO_DO_ESTADO[/txt-color]

Veja se funciona e retorne o resultado.
Tópico encerrado , respostas não são mais permitidas
Voltar