08-03-2020, 09:47 PM
السلام عليكم ورحمة الله تعالى وبركاته
المشكلة التي تواجهني هي عندما اضغط على زر اضافة وبدلا من ان يضيف الرقم الموالي يكرر نفس الرقم
مع العلم انه لا تظهر هذه المشكلة الا بعد وصول عدد السجلات الى رقم 49 سجل
الكود المستعمل هو كالاتي
المشكلة التي تواجهني هي عندما اضغط على زر اضافة وبدلا من ان يضيف الرقم الموالي يكرر نفس الرقم
مع العلم انه لا تظهر هذه المشكلة الا بعد وصول عدد السجلات الى رقم 49 سجل
الكود المستعمل هو كالاتي
كود :
var
tan,result : string;
tNum,Err : integer;
tKey : variant;
begin
DM.Table1.IndexName:='';
DM.Table1.Last;
tan := DM.Table2Br.FieldValues['Annee'];
tKey := DM.Table1.fields[0].value;
DM.Table1.Append;
if (tKey = NULL) or (copy(tKey, length(tKey)-3, 4)<>tan)then tNum := 0
else begin
val(copy(tKey, 1, 4), tNum, Err);
if Err<>0 then tNum := 0;
end;
result := format('%4.3d/', [tNum+1]) + tan ;
DM.Table1.FieldValues['No_Brd']:=result;
جزاكم الله عنا كل خير