السلام عليكم ورحمة الله
عندي استفسار بخصوص الارقام
عندي كود للارقام يتسلسل الارقم من 001 الى لا نهاية
بس الكود اللي عندي من يوصل الى رقم 999 يرجع الى رقم 100 بدل ال 1000
حاولت اعدل في الكود بس ما ضبط
هذا الكود
المشكله الان بعد ال 999 ما يعطيني رقم 1000 يرجع الى رقم 100
افيدوني بارك الله فيكم وشكرا
الحمدالله حصلت الحل
وهو
شكرا
عندي استفسار بخصوص الارقام
عندي كود للارقام يتسلسل الارقم من 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")
شكرا