[VB.NET]

إخواني عندي مشكلة في الترقيم التلقائي

يقرأ رقم آخر سجل ثم يبدأ من أول سجل و يتوقف عند رقم معين مع العلم أن هذا الرقم موجود أصلا في الجدول

كود :

Dim sd As String = "select * from TABLE"
        Dim c As New OleDbCommand(sd, cn)
        'cn.Open()
        Dim r As OleDbDataReader = c.ExecuteReader
        Dim m As Integer = 0
        While r.Read
            m = r!add_no
        End While
        tEXTBOX1.Text = m + 1
        r.Close()
        'cn.Close()

[VB.NET]

مع العلم أنه شغال مع جدول آخر بدون أخطاء

[zeus]

تفضل يا اخي كود سهل ومفهوم

PHP كود :

Dim billno As New OleDbCommand("SELECT max(bill) From sales", con)
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        If billno.ExecuteScalar Is DBNull.Value Then
            TextBox11.Text = 1
            con.Close()
        Else
            TextBox11.Text = billno.ExecuteScalar + 1
            con.Close()