منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود لتوليد الارقام تلقائي في text box
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
احتاج كود لتوليد الارقام تلقائي في text box
(07-11-23, 06:05 PM)Raaf كتب : [ -> ]احتاج كود لتوليد الارقام تلقائي في text box

هل الرقم اللذي تم توليده مرتبط بقيمة قبله ام لا
يعني مثلا يوجد رقم بقاعدة بيانات مثلا ويزيد عليه بمقدار +1
PHP كود :
       Dim i As Integer Int(Rnd() * 99)
 
       lbl.Text = (i.ToString("00")) 
(07-11-23, 06:26 PM)justforit كتب : [ -> ]
(07-11-23, 06:05 PM)Raaf كتب : [ -> ]احتاج كود لتوليد الارقام تلقائي في text box

هل الرقم اللذي تم توليده مرتبط بقيمة قبله ام لا
يعني مثلا يوجد رقم بقاعدة بيانات مثلا ويزيد عليه بمقدار +1
PHP كود :
       Dim i As Integer Int(Rnd() * 99)
 
       lbl.Text = (i.ToString("00")) 
لا توجد قيمه قبله 
معي عمود اسمه id في قاعده البيانات وااريده ان يعرض لي في text box من 1الخ بدون تكرار حسب رقم الصف الذي ساضيفه.
الطرق كثيرة و حتى لا اكثر عليك من الاسئلة وضعت واحدة من تلك الطرق
المثال مرفق
اخي الحبيب استخدم دالة max كا التالي
Public Function Max_lap_nocustomer()
Dim Number As Integer
Try
Dim cmd As New SqlCommand("Select Max(lap_no) From custemar ", con)
If con.State = 1 Then con.Close()
con.Open()
Number = cmd.ExecuteScalar
con.Close()
Catch ex As Exception
Number = 0
con.Close()
End Try
Return Number
End Function
بعدها في السب الخاص بالكلير Max_lap_nocustomer+1
بالتوفيق
(07-11-23, 06:26 PM)justforit كتب : [ -> ]
(07-11-23, 06:05 PM)Raaf كتب : [ -> ]احتاج كود لتوليد الارقام تلقائي في text box

هل الرقم اللذي تم توليده مرتبط بقيمة قبله ام لا
يعني مثلا يوجد رقم بقاعدة بيانات مثلا ويزيد عليه بمقدار +1
PHP كود :
       Dim i As Integer Int(Rnd() * 99)
 
       lbl.Text = (i.ToString("00")) 

(08-11-23, 03:03 AM)VIP_YEMEN كتب : [ -> ]
(07-11-23, 06:26 PM)justforit كتب : [ -> ]
(07-11-23, 06:05 PM)Raaf كتب : [ -> ]احتاج كود لتوليد الارقام تلقائي في text box

هل الرقم اللذي تم توليده مرتبط بقيمة قبله ام لا
يعني مثلا يوجد رقم بقاعدة بيانات مثلا ويزيد عليه بمقدار +1
PHP كود :
       Dim i As Integer Int(Rnd() * 99)
 
       lbl.Text = (i.ToString("00"))