10-05-19, 11:34 PM
(آخر تعديل لهذه المشاركة : 10-05-19, 11:36 PM {2} بواسطة asemshahen5.)
الغ خاصية الترقيم التلقائي و ضع هذا الكود :
PHP كود :
Dim T As Long, n As Long
For T = 0 To DT1.Rows.Count - 1
n += 1
If CInt(DT1(T)("AutoNumbering")) <> n Then
txtn.Text = n
Exit Sub
End If
Next
txtn.Text = n + 1
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
