combobox

Delphi

20/05/2003

Ao iniciar um form carrego um combobox com algumas informações. Exemplo: cbotipo.additem(´nomes´).
Gostaria de poder gravar o codigo do nome tambem no combobox, tentei na propriedade .itemindex, mas não deu certo, alguem tem alguma dica ?

Resumindo, quando selecionar o nome, irei gravar o codigo do nome na tabela.


Obrigado


Silviomorelo

Silviomorelo

Curtidas 0

Respostas

Rodrigo Costa

Rodrigo Costa

20/05/2003

Não seria mais fácil usar um dbLookupcombobox !?

Ou então, no evento ou change faça o seguinte:

adoquery_aux.close; adoquery_aux.sql.text:=´Select cod from tabela where nome = ´+combobox.text; adoquery_aux.open; v_cod:=adoquery_aux.fieldbyname(´cod´).asinteger;


No evento BeforePost da query faça o seguinte:

adoquery_tabela.fieldbyname(´cod´).asinteger:=v_cod;



GOSTEI 0
POSTAR