Boa tarde pessoal

No projeto tenho uma combo que armazena os nomes dos clientes. Ao selecionar determinado cliente os demais campos que seriam edits precisam ser atualizados.

Se alguém tiver uma dica , agradeço.

Mauricio - Ctba/PR

Mauricio não entendi a duvida. Voce quer como se grava ? Explique melhor.

 

Se sua duvida é pegar os dados do cliente da combo. Voce precisa ler o arquivo de cliente pelo codigo do cliente que deve estar armazenado na combo e exibir os dados na tela (nome. endereco) e depois grava. Veja se isso ajuda qualquer coisa post.

Rocha , é isso , mas sem gravar nada , apenas uma consulta pelo nome do cliente.

Ao selecionar o cliente X na combo , o restante dos dados aparecerão nas edits.

Estou começando agora em VB , antes programava em Delphi , por isso a dúvida

Se puder me ajudar , obrigado

 

Bom..... para povoar uma combo voce deve fazer assim.

... le do inicio ate o fim

    While Not rst.eof

            combo_aux.AddItem rst.fields![nome_cliente]
            combo_aux.ItemData(combo_aux.NewIndex) = rst.fields![cod_cliente]
            rst.movenext

    Wend

Neste caso voce tem o nome (sera mostrado na combo) e o cod_cliente que sera guardado. Quando selecionar um cliente voce tem o nome com combo_aux.text e o codigo com combo_aux.ItemData(combo_aux.ListIndex). Tipo

 

cod_cliente    nome

10                 Maurico

11                 Claudio

se eu clicar em Mauricio o itemdata(listindex) vai me devolver 10. Com este codigo tenho que ler o arquivo para pegar as outras informacoes e exibir

 

    rst.seek "=", combo_aux.itemdata(combo_aux.listindex)

Valeu  falta pouco , ao selecionar o nome na combo aparece a seguinte mensagem de erro.Operation invalid without a current index , estou tentando resolver

Mauricio - Ctba/Pr