DBComboBox

Question

algu�m sabe uma forma de utilizar o DBComboBox desta maneira:tenho um dbcombobox com os seguintes itens ...1. Item um2. Item dois3. Item trespor�m, gostaria que ele retornasse para o campo apenas os n...

Aroldo Zanela · Answer

Colega,Creio que um campo Char(1), receber� apenas o primeiro d�gito, mas n�o estou seguro. Fa�a um teste.Outra alternativa, com ComboBox ou dbComboBox � utilizar o manipulador de evento OnChange, conforme exemplo:[code:1:df6577c2b9]  ShowMessage((Sender as TComboBox).Text&#91;1&93;); // Pegar a primeira posi��o[/code:1:df6577c2b9]...

Danielrsanches · Answer

obrigado pela resposta Aroldo !!mas isso n�o funciona, ou funciona em partes ... eu at� consigo pegar esse valor (parcial) e coloc�-lo no campo, por�m na hora de exibir a informa��o ele n�o exibe ...mas estou fazendo de outra forma mesmo ... com o DBComboBox ser� imposs�vel fazer isso .. n�o adianta querer fazer milagres com ele ...rsrsrsmesmo assim, muito obrigado !!!abra�os !!...

Marco Salles · Answer

para salvar no Banco apenas parte da informa��o ..

Defina o campo como Char

para exibar as informa��es com descri��es manipule o evento
OnGetText do Tfield

procedure TSeuForm.SuDataSetSeuFieldGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
if trim(sender.AsString) <> �� then
case sender.AsString[1] of
�1�:text:=�1. Item um�;
�2�:text:=�2. Item dois�;
�3�:text:=�3. Item tres�;
end;

Danielrsanches · Answer

ol� Marco Salles !!!N�o deu certo...meu campo � varchar(2) ...com o DBComboBox, ele camptura o texto real que est� incluso nos Itens, por�m, captura os 2 primeiros caracteres ... resumindo ...se eu deixar os items assim:_ = espa�o em branco1_- Item um2_- Item dois3_- Item tresassim o campo captura apenas os 2 primeiros caracteres, conforme disse nosso amigo Aroldo Zanela ...mesmo assim muito obrigado pela id�ia !!abra�os !!...

Marco Salles · Answer

[quote:34ed9acd80]ol� Marco Salles !!! N�o deu certo... meu campo � varchar(2) ... [/quote:34ed9acd80]DA CERTO SIM ...Mude o campo para Varchar para varchar(1)  , mas se vc quer manter este campo codifique [b:34ed9acd80]simultaneamente[/b:34ed9acd80] o evento OnSetText[code:1:34ed9acd80]procedure TSeuForm.SuDataSetSeuFieldGetText(Sender: TField;  const Text: String);begincase text&#91;1&93; of�1�:sender.AsString:=�1�;�2�:sender.AsString:=�2�;�3�:sender.AsString:=�3�;end;end;[/code:1:34ed9acd80]...

F�rum DBComboBox #371157