Alterando dados do campo antes de gravar
Em alguns casos, você quer alterar os valores de um campo antes de gravar os dados. Para isso, você pode usar o evento BeforePost do Dataset e alterar os dados necessários, desta maneira:
procedure TForm1.ClientDataSet1BeforePost(DataSet:
TDataSet);
var
Valor : String;
begin
Valor := Dataset.FieldByName('Razao').AsString;
if Valor[Length(Valor)] <> ' ' then
Dataset.FieldByName('Razao').AsString := Valor+' ';
end;
1 Comentários:
TE AMEI DESDE PRIMEIRO DIA QUE TE VI.
Postar um comentário
<< Home