| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
lokasso
Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017
Mensagens: 174
|
 Enviada: Sex Abr 14, 2017 3:34 pm Assunto: [Resolvido] Erro no ComboBox e DBComboBox |
 |
|
Galera, boa tarde.
Preciso que um ComboBox ou DBComboBox contenha as seguintes opções:
0:Ativo - Gravando na tabela de cadastro: A
1:Inativo - Gravando na tabela de cadastro: I
e o mesmo fale para Masculino(M) e Feminino(F)
Porém não estou conseguindo, poderiam me dar uma luz nisso?
Desde de já agradeço
Editado pela última vez por lokasso em Sáb Abr 15, 2017 3:25 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
|
| Voltar ao Topo |
|
|
lokasso
Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017
Mensagens: 174
|
| Enviada: Sáb Abr 15, 2017 3:24 pm Assunto: |
|
|
Valeu imex, a sua dica foi de grande ajuda, na verdade o primeiro link tive que fazer um ajuste no código apenas, ficou assim:
| Código: | procedure TDM_Principal.FDQ_TesteSTATUSGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
if FDQ_TesteSTATUS.AsString = 'A' then
begin
Text:= 'ATIVO';
end
else
Text:= 'INATIVO';
end;
procedure TDM_Principal.FDQ_TesteSTATUSSetText(Sender: TField;
const Text: string);
begin
if Text = 'ATIVO' then
begin
FDQ_TesteSTATUS.AsString:= 'A';
end
else
FDQ_TesteSTATUS.AsString:= 'I';
end; |
Estou postando para que talvez possa ajudar alguém que esteja com a mesma duvida e não consiga adaptar o código.
Grato imex |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
