[Raaf]

احتاج كود لتوليد الارقام تلقائي في text box

[justforit]

(07-11-23, 06:05 PM)Raaf كتب : احتاج كود لتوليد الارقام تلقائي في text box

هل الرقم اللذي تم توليده مرتبط بقيمة قبله ام لا
يعني مثلا يوجد رقم بقاعدة بيانات مثلا ويزيد عليه بمقدار +1

PHP كود :

       Dim i As Integer = Int(Rnd() * 99)
        lbl.Text = (i.ToString("00")) 


[Raaf]

(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الخ بدون تكرار حسب رقم الصف الذي ساضيفه.

[justforit]

الطرق كثيرة و حتى لا اكثر عليك من الاسئلة وضعت واحدة من تلك الطرق

المثال مرفق

[الحزين اليماني]

اخي الحبيب استخدم دالة 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
بالتوفيق

[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")) 


---

(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"))