Fórum Evento DBGrid #244943
29/07/2004
0
Em qual evento eu posso colocar um teste em uma DbGrid para saber se o usuário digitou o valor certo?
Tenho a seguinte condição:
if ((data.IBTFalFAL_FALTOU.Value <> ´F´) and (data.IBTFalFAL_FALTOU.Value <> ´f´) and (data.IBTFalFAL_FALTOU.Value <> ´V´) and (data.IBTFalFAL_FALTOU.Value <> ´v´))
then
Begin
Application.MessageBox(´Valor Inválido ! - Digite V ou F´,
´::::: SCT ::::: Faltas - Edição´, MB_OK + MB_iconexclamation );
data.IBTFalFAL_FALTOU.Value:=´´;
end
else
Begin
if (data.IBTFalFAL_FALTOU.Value = ´f´) then data.IBTFalFAL_FALTOU.Value:=´F´;
if (data.IBTFalFAL_FALTOU.Value = ´v´) then data.IBTFalFAL_FALTOU.Value:=´V´;
end;
Valeu a força!!
JR.
Tenho a seguinte condição:
if ((data.IBTFalFAL_FALTOU.Value <> ´F´) and (data.IBTFalFAL_FALTOU.Value <> ´f´) and (data.IBTFalFAL_FALTOU.Value <> ´V´) and (data.IBTFalFAL_FALTOU.Value <> ´v´))
then
Begin
Application.MessageBox(´Valor Inválido ! - Digite V ou F´,
´::::: SCT ::::: Faltas - Edição´, MB_OK + MB_iconexclamation );
data.IBTFalFAL_FALTOU.Value:=´´;
end
else
Begin
if (data.IBTFalFAL_FALTOU.Value = ´f´) then data.IBTFalFAL_FALTOU.Value:=´F´;
if (data.IBTFalFAL_FALTOU.Value = ´v´) then data.IBTFalFAL_FALTOU.Value:=´V´;
end;
Valeu a força!!
JR.
Jrjoliv2003
Curtir tópico
+ 0
Responder
Posts
29/07/2004
Inutaishou
Coloca no BeforPost da tabela... Atribua o evento à tabela em tempo de execução se ela estiver sendo usada em vários formulários...
[]´s,
[]´s,
Responder
Gostei + 0
29/07/2004
Jrjoliv2003
Resolvi com a ajuda de um colega dessa maneira:
No evento onExit da DBGrid
if ((dbgrid1.SelectedField.Text <> ´F´) and (dbgrid1.SelectedField.Text <> ´f´) and (dbgrid1.SelectedField.Text <> ´V´) and (dbgrid1.SelectedField.Text <> ´v´))
then
Begin
Application.MessageBox(´Valor Inválido ! - Digite V ou F´,
´::::: SCT ::::: Faltas - Edição´, MB_OK + MB_iconexclamation );
dbgrid1.SelectedField.Text:=´´;
end
else
Begin
if (dbgrid1.SelectedField.Text = ´f´) then dbgrid1.SelectedField.Text:=´F´;
if (dbgrid1.SelectedField.Text = ´v´) then dbgrid1.SelectedField.Text:=´V´;
end;
Mas Obrigado por ter respondido!!!
JR.
No evento onExit da DBGrid
if ((dbgrid1.SelectedField.Text <> ´F´) and (dbgrid1.SelectedField.Text <> ´f´) and (dbgrid1.SelectedField.Text <> ´V´) and (dbgrid1.SelectedField.Text <> ´v´))
then
Begin
Application.MessageBox(´Valor Inválido ! - Digite V ou F´,
´::::: SCT ::::: Faltas - Edição´, MB_OK + MB_iconexclamation );
dbgrid1.SelectedField.Text:=´´;
end
else
Begin
if (dbgrid1.SelectedField.Text = ´f´) then dbgrid1.SelectedField.Text:=´F´;
if (dbgrid1.SelectedField.Text = ´v´) then dbgrid1.SelectedField.Text:=´V´;
end;
Mas Obrigado por ter respondido!!!
JR.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)