+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود لتوليد الارقام تلقائي في text box (/showthread.php?tid=47453)
كود لتوليد الارقام تلقائي في text box - Raaf - 07-11-23
احتاج كود لتوليد الارقام تلقائي في text box
RE: كود لتوليد الارقام تلقائي في text box - justforit - 07-11-23
(07-11-23, 06:05 PM)Raaf كتب : احتاج كود لتوليد الارقام تلقائي في text box
هل الرقم اللذي تم توليده مرتبط بقيمة قبله ام لا
يعني مثلا يوجد رقم بقاعدة بيانات مثلا ويزيد عليه بمقدار +1
PHP كود :
Dim i As Integer = Int(Rnd() * 99)
lbl.Text = (i.ToString("00"))
RE: كود لتوليد الارقام تلقائي في text box - Raaf - 07-11-23
(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الخ بدون تكرار حسب رقم الصف الذي ساضيفه.
RE: كود لتوليد الارقام تلقائي في text box - justforit - 07-11-23
الطرق كثيرة و حتى لا اكثر عليك من الاسئلة وضعت واحدة من تلك الطرق
المثال مرفق
RE: كود لتوليد الارقام تلقائي في text box - الحزين اليماني - 08-11-23
اخي الحبيب استخدم دالة 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
بالتوفيق
RE: كود لتوليد الارقام تلقائي في text box - VIP_YEMEN - 08-11-23
(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"))