[غدير الصليحي]

(17-11-21, 09:04 PM)سعود كتب :

(17-11-21, 09:01 PM)غدير الصليحي كتب :

(17-11-21, 08:46 PM)سعود كتب :

PHP كود :

Public Class Form1
    Dim n As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        n += 1
        t2.Text = t1.Text.Split("-")(0) & "-" & n.ToString("000")
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        n = Val(t1.Text.Split("-")(1))
    End Sub
End Class 


بعد ان ناخذ النص من الجدول نجري عليه هذه الاكواد

لو ترسل المرفق افصل لو سمحت

المثال هذا من دون  قاعدة بيانات.
لكن اشوف المثال الموجود واحدثه ان شاء الله تعالى.

اشكرك اخي سعود طريقتك ناجحة مية مية 
لقد جربت من خلال بتون  بهذ الكود

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer = 0
        n = Val(TextBox1.Text.Split("-")(1))
        n += 1
        TextBox2.Text = TextBox1.Text.Split("-")(0) & "-" & n.ToString("000")
    End Sub

وكانت ادخل اي رقم بنفس التنسيق السابق و تظهر النتيجة صحيحه