[سعود]

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 


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