Não sei se eh a melhor forma mas estou fazendo assim:
Carregareg
cbxTipo.ItemIndex :=
cbxTipo.Items.IndexOfObject(pointer(dm0.adoqrymcd.FieldByName('Atipo').AsInt
eger));
inclui
wconssql := wconssql +
quotedstr(inttostr(Integer(cbxtipo.Items.Objects[cbxTipo.ItemIndex])))+',';
altera
wconssql := wconssql + 'Atipo
='+quotedstr(inttostr(Integer(cbxTipo.Items.Objects[cbxTipo.ItemIndex])))+',
';
limpar
cbxtipo.itemindex:=0;
Montar combo
// Alimenta o combo para tipo de documentos.
dm0.adoqrytabelas.close;
dm0.adoqrytabelas.sql.clear;
WConsSQL := 'SELECT * FROM TipoDoc order by Desctpdoc';
Dm0.adoqrytabelas.sql.add(WConsSQL);
dm0.adoqrytabelas.open;
cbxTipo.items.Clear;
While not Dm0.adoqrytabelas.Eof Do
Begin
cbxTipo.items.AddObject(trim(Dm0.adoqrytabelas.FieldByName('DescTpdoc').Asst
ring),Pointer(Dm0.adoqrytabelas.FieldByName('IdentDoc').Asinteger));
Dm0.adoqrytabelas.Next;
end;
}
-----Mensagem original-----
De: Rafael Stoever [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 7 de outubro de 2004 12:02
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] DBLookupComboBox
como faço p/ puxar um valor q já está listado no combo ???
Ex.:
Dentro do combobox já estão listados os itens, mas não está setado nenhum
item p/ o cliente
gostaria de fazer como buscar um item desta lista p/ visualização do
cliente.
flw
.Rafael Stoever .Desenvolvimento
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
