تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله فى جلب اعلى رقم& تم حل المشكله
#1
اهلا بكم احبتى دام الله عليكم البشر والسرور
عندى كود لجلب اعلى رقم فى الفواتير عند رقم عشره لا يستطيع جلب اعلى رقم بعد الرقم 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
ولكم منى جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
أخي خالد

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


أخي خالد
إن لم الجواب واضحا فأخبرني
الرد }}}
تم الشكر بواسطة: asemshahen5 , خالد كامل1 , ابراهيم ايبو
#3
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 
الرد }}}
تم الشكر بواسطة: الحازمي , خالد كامل1 , ابراهيم ايبو
#4
ايها الاحبه اريد ان اريكم شيئا فى تلك المشكله اترون اين الفاتوره التى رقمها 10 انها الثانيه وليس فى ترتيبها الصحيح ولذلك ياخذ الترقيم التلقائي نهايه الارقام هو رقم 9
لا ادرى لماذا وضع رقم 2 فى الرو الثانى

الرد }}}
تم الشكر بواسطة:
#5
ضع في نهاية الاستعلام :

order by ID

ID عنيت به عامود رقم الفاتورة .
الرد }}}
تم الشكر بواسطة: خالد كامل1
#6
السلام عليكم اخي خالد
حتى تتسلسل الارقام اجعل جملة الاستعلام لاملاء الداتا غرايد هكذا

PHP كود :
"select * From [Table] order by Id Asc " 
او حقل رقم الفاتورة بدل ID
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , خالد كامل1
#7
كلها الحلول ادت الى نتيجه صحيحه ولكنى فضلت عمل لوب للداتا جريد فيو ووضع الرقم التالى بعد اعلى رقم حتى ولو كان الرو ليس بمكانه
لكم منى جزيل الشكر والعرفان والاحترام اخوانى
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم