كود للترقيم برمجيا حسب كل مجموع (للتعديل)

[محمد عبد العزيز]

صراحة لم افهم جيدا ما تود القيام به،
جرب اعادة المتغيرات الى صفر مباشرة بعد Tab1.Next

كود :

Tab1.Next; if D500>=5 then D500:=0; if D501>=5 then D501:=0; if D000>=5 then D000:=0; if R000>=5 then R000:=0; if R501>=5 then R501:=0; if R500>=5 then R500:=0; if C500>=5 then C500:=0; if D501>=5 then D501:=0; if C000>=5 then C000:=0; if H500>=5 then H500:=0; if H501>=5 then H501:=0; if H000>=5 then H000:=0;