18-12-2008, 09:13 AM
ربما ينجح هدا
كود :
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
Table1['Code_Matier']:='ar000'+inttostr(Dataset.RecNo);
end;
