Pesquisa em uma combobox

Question

Durante a abertura do form eu preencho minha combo, que fica com o seguinte formato:1-Bradesco2-Itau3-Unibanco...Representa o Codigo e a descri��o da tabela Banco. Preciso construir agora uma rotina i...

Guilherme · Answer

deixa eu ve si eu intendi !!!vc vai selecionar no grid e vai aparecer no combo box � isso ???si for segue mais ou menos esse exemplo[code:1:3cf00652c7]ComboBox1.ItemIndex:=ListBox1.Items.IndexOf(�TEXTO!!!!�);[/code:1:3cf00652c7]...

Paulo · Answer

N�o, n�o � bem isso n�o. � o seguinte, por partes. Tenho 2 tabelas basicamente: BANCO E CHEQUEEMITIDO. Neste caso, e s� neste caso, uso a tabela de banco para preencher minha combo, no OnCreate do form, da seguinte maneira:

COD+�-�+DESCRICAO

(cod do banco e nome do banco separados por um hifem), da� o foramato da combo:

1-bradesco 2-itau 3-unibanco ....

Como uso SP para inserir, alterar e excluir, preciso passar os par�metros das SP�s, raz�o pela qual, n�o uso componentes ligados a um TDataSource, mas sim componentes simples com propriedade Text e etc... Para incluir blz, porem na hora de Alterar, por exemplo, o usu�rio vai selecionar o registro a ser alterado. Ele faz a consulta, carrega a consulta no Grid e seleciona no mouse(OnCellClick). No momento que ele selecionar, dever� ser carregado em cada edit, por exmplo, os valores da tabela, assim: EditNumConta=CampoNumConta, EditValor=CampoValor e assim por diante. Acontece que o campo Banco est� numa combobox e na tabela de cheque, o codigo somente. Por isso que quando eu clicar no registro, ele fa�a uma pesquisa na combo, encontra quem tem esse valor e mostre na prop text da combo. Para gravar no insert eu fa�o:

varcombo:=strtoint(copy(edbanco.Text,1,pos(�-�,edbanco.Text)-1)); depois carrego o parametro: parambyname(�banco�).value:=varcombo;

S� queria o inverso agora, mas nada.
Claro que o c�digo acima � um fragmento

Njuniorba · Answer

Query1.First;while not Query1.Eof do begin  ComboBox1.Items.Add(Query1.FieldByName(�CODIGO�).AsString + �- � + Query1.FieldByName(�NOME_BANCO�).Value);  Query1.Next; end;end;...

Paulo · Answer

NJuniorba, n�o � isso n�o, isso � que eu fiz no OnCreate do Form para encher minha combo, conforme explicado acima. O que eu preciso � o inverso, ou seja, com a minha combo cheia, preciso agora localizar pelos caracteres antes do hifen(-), que j� est�o gravados na minha tabela, e mostrar na text da combo.

nao entendi ainda hehehe antes do hifen estao os numeros 1-, 2-

Njuniorba · Answer

[quote:832d81adf7=�Paulo�]NJuniorba, n�o � isso n�o, isso � que eu fiz no OnCreate do Form para encher minha combo, conforme explicado acima. O que eu preciso � o inverso, ou seja, com a minha combo cheia, preciso agora localizar pelos caracteres antes do hifen(-), que j� est�o gravados na minha tabela, e mostrar na text da combo.[/quote:832d81adf7]nao entendi ainda hehehe antes do hifen estao os numeros 1-, 2-...

Michael · Answer

Ol�!A dica do colega g_borges procede e � uma solu��o. Por�m, h� ainda outra mais simples: se vc adicionar na ComboBox os bancos na mesma ordem em que seus c�digos os representam (por exemplo, se o c�digo do Bradesco � 1, ent�o adicione ele primeiro; se o Ita� for 2, em segundo, etc), ent�o para selecionar um basta isso:[code:1:fe69054380]ComboBox.ItemIndex := StrToInt(CodigoBanco) - 1;[/code:1:fe69054380]CodigoBanco vc pode pegar via Fields do DataSet associado. E se este field for do tipo integer, nem precisa da fun��o StrToInt.[]�s...

Paulo · Answer

Michel, dessa forma n�o d�, pois digamos que eu tenho ,1,2,3 e 4 cadastrado. A� uma determinada pessoa vai inserir um novo banco, que seria o 5, mas ele desiste(RollBack) e o gerador j� foi disparado. Ele resolve novamente inserir o banco e insere, a� o codigo dele n�o � mais o 5 e sim o 6 e seu fizer combo.itemindex:=campo-1, seria itemindex = 5, na combo ele tem itemindex = 4, o que n�o me retornaria nada. Vou fazer pelo recordcount da tabela, creio que assim dar�, combo.itemindex:=recordcount-1, j� que recordcount come�a com 1 e n�o 0.

O campo codigo tem seu valor proveniente de um gerador, por meio de uma trigger.

Michael · Answer

Michel????Ent�o use a dica do g_borges, usando [b:363a48c255]IndexOf[/b:363a48c255].[]�s...

F�rum Pesquisa em uma combobox #300991