أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة ) 

(28-07-22, 02:28 PM)أبو خالد الشكري كتب : أهلين إزيك يا سي حماده ؟

أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة ) 

كود :

Public Function Max_number_invoic_tbpl()
       Dim Number As Integer
       Dim rdr As SqlClient.SqlDataReader
       Try
           Dim cmd As New SqlCommand("Select Max(order_no) From wardya_cashier Where order_tybe ='" & order_type.Text & "'", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           rdr = cmd.ExecuteReader
           rdr.Read()
           If rdr.HasRows Then

               MsgBox("توجد بيانات مسجلة يا حماده")

           Else

               MsgBox("للأسف يا حماده لا توجد بيانات مسجلة")

           End If
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Return Number
   End Function

(28-07-22, 07:51 PM)asemshahen5 كتب : استخدم الاستعلام كالتالي :

PHP كود :

Dim StrSQL as String = "Select IIF(Max(order_no) Is NULL,1,Max(order_no)+1)as order_no From wardya_cashier Where order_tybe ='" & order_type.Text & "'" 


فقط غير اسم العامود+اسم الجدول .