thaita Novato
Registrado: Sábado, 26 de Novembro de 2022 Mensagens: 44
|
Enviada: Ter Set 05, 2023 9:53 am Assunto: RESOLVIDO Como inserir uma condição "IF" em um DBGrid , |
|
|
Meus Prezados,
Em meu formulário tinha um procedimento em um comboBox cujo campo chamado (Campo TESTE) tinha 03 opções(A,B,C) e um GroupBox com 2 Tedit's com datas(Inicial e final). Alterei o formulário removendo esses componentes e deixando somente a DBGrid para fazer as operações de Inserção, exclusão,etc). Assim , no campo da DbGrid , Assim sendo, no campo TESTE da DBGrig(que é um picklist) com as 3 opções, preciso fazer o seguinte: Quando o campo teste(pickList) for igual a opção "B" então , os campos da DBGRID Data Inicial e Data Final) ficarão habilitados. Como fazer isso na DBGrid e em qual evento dela vou incluir? Alguém pode me ajudar?
Fiz assim:
function TModelEntidadeFichaAnimal.Listar(Value: TDataSource): iEntidade;
begin
Result := Self;
FQuery.SQL
('Select A.TipoAnimal,FA.* From Animal A ' +
'INNER JOIN Ficha_Animal FA ON A.id = FA.ID_Animal;');
Value.Dataset := FQuery.Dataset;
end;
MAS OS CAMPOS DA DBGRID NÃO ESTÃO EM MODO DE EDIÇÃO. ALGUÉM PODE ME AJUDAR? |
|