[dubai.eig]

السلام عليكم ورحمة الله

عندي استفسار بخصوص الارقام

عندي كود للارقام يتسلسل الارقم من 001 الى لا نهاية

بس الكود اللي عندي من يوصل الى رقم 999  يرجع الى رقم 100 بدل ال 1000

حاولت اعدل في الكود بس ما ضبط  

هذا الكود

كود :

Mid$(Exchange_r.Text, 1, 3) = Val(Mid$(Exchange_r.Text, 1, 3) + 1).ToString("000")

المشكله الان بعد ال 999 ما يعطيني رقم 1000  يرجع الى رقم 100

افيدوني بارك الله فيكم وشكرا

---

الحمدالله حصلت الحل

وهو

كود :

dim FirstString As String = "001" ' as example  
dim SecondString As String  
SecondString = Format((Int(FirstString) + 1), "000")  

شكرا