منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكله فى جلب اعلى رقم& تم حل المشكله

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

كود :

Public Function getmaxid(ByVal tablename, ByVal coulmname) As Integer

        Dim dt As New DataTable

        Dim da As New OleDbDataAdapter

        dt.Clear()

        da = New OleDbDataAdapter("select max (" & coulmname & ")from " & tablename & "", con)

        da.Fill(dt)

        Dim outonumber As Integer

        If IsDBNull(dt(0)(0)) = True Then

            outonumber = 1

        Else

            outonumber = dt(0)(0) + 1

        End If

        Return outonumber

    End Function

والتعويض عنه فى فاتوره المشتريات مثلا بهذا الكود
("buycode.text=("buy","buycode
ولكم منى جزيل الشكر

أخي خالد

لاستخدام MAX تأكد من نوع العمود من أنه (رقم) ولي (نص)

أخي خالد
إن لم الجواب واضحا فأخبرني

PHP كود :

   ''' <summary>
    ''' Max ID Record +1
    ''' </summary>
    ''' <param name="TableName">Any Table Name</param>
    ''' <param name="IDColumn">Column Neme</param>
    ''' <returns>Integer MaxID</returns>
    ''' <remarks></remarks>
    Function MaxIDRecord(ByVal TableName As String, ByVal IDColumn As String) As Integer
        Dim Txt_MaxID As Integer = 0
        Dim StrSQL As String = "Select IIF(Max(" & IDColumn & ") Is NULL,1,Max(" & IDColumn & ")+1) From " & TableName
        If Con.State = ConnectionState.Closed Then Con.Open()
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, Con)
        Dim dt As New DataTable
        dt.Clear()
        da.Fill(dt)
        Txt_MaxID = dt.Rows(0)(0).ToString()
        If Con.State = ConnectionState.Open Then Con.Close()
        Return Txt_MaxID
    End Function 

ايها الاحبه اريد ان اريكم شيئا فى تلك المشكله اترون اين الفاتوره التى رقمها 10 انها الثانيه وليس فى ترتيبها الصحيح ولذلك ياخذ الترقيم التلقائي نهايه الارقام هو رقم 9
لا ادرى لماذا وضع رقم 2 فى الرو الثانى

ضع في نهاية الاستعلام :

order by ID

ID عنيت به عامود رقم الفاتورة .

السلام عليكم اخي خالد

حتى تتسلسل الارقام اجعل جملة الاستعلام لاملاء الداتا غرايد هكذا

PHP كود :

"select * From [Table] order by Id Asc " 

او حقل رقم الفاتورة بدل ID

كلها الحلول ادت الى نتيجه صحيحه ولكنى فضلت عمل لوب للداتا جريد فيو ووضع الرقم التالى بعد اعلى رقم حتى ولو كان الرو ليس بمكانه
لكم منى جزيل الشكر والعرفان والاحترام اخوانى

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

خالد كامل1

الحازمي

asemshahen5

خالد كامل1

asemshahen5

ابراهيم ايبو

خالد كامل1