إظهار الترقيم السنوي بالداتاغريد

كود :
Imports System.Data.OleDb



Public Class Form1



    Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Jet OLEDB:Database Password=123; Data Source=" & Application.StartupPath & "\DBTEST.accdb")

    Dim InfoTable As DataTable

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim cmd As New OleDbCommand("insert into Table1 (ID) values (@ID)", conn)

        cmd.Parameters.AddWithValue("@ID", TextBox1.Text)



        conn.Open()

        cmd.ExecuteNonQuery()

        cmd.Dispose()

        conn.Close()



        'إدراج التسلسل الجديد بعد عملية الحفظ

        shownewid()

    End Sub



    Sub shownewid()   'الصب المسئول عن إدراج تسلسل جديد



        If Date.Now.Month = 1 And Date.Now.Day = 1 Then

            TextBox1.Text = Date.Now.Year & "-" & "0001"

            Exit Sub

        End If

        Dim dp As New OleDbDataAdapter("Select Top 1 ID from Table1 order by ID DESC", conn)

        Dim dt As New DataTable

        dp.Fill(dt)

        If dt.Rows.Count = 0 Then

            TextBox1.Text = Date.Now.Year & "-" & "0001"

        Else

            Dim idall As String = dt.Rows(0)(0).ToString

            idall = Replace(idall, "-", "-")

            Dim strArr() As String = idall.Split("-")

            TextBox1.Text = Date.Now.Year & "-" & Val(strArr(1) + 1).ToString("0000")

        End If





        InfoTable = New DataTable

        Using InfoAdapter As New OleDbDataAdapter("Select * from Table1", conn)

            InfoAdapter.Fill(InfoTable)

        End Using



        DataGridView1.DataSource = InfoTable

    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        shownewid()

    End Sub

End Class