[aloush]

(26-07-19, 05:47 PM)khalidfs5 كتب :

(23-04-18, 01:02 PM)ملهمـ كتب : مدخل للدورة وتعريف بالبرنامج 

يوجدخطا عندي يظهر في الترقيم التلقائي ولا اجد له حل

كود :

code_name = 0
       Dim dt As New DataTable
       Dim da As New SqlClient.SqlDataAdapter("select * form " & tbname & "order by " & id_ & "", sqlconn)
       da.Fill(dt)
       If dt.Rows.Count <> 0 Then
           Dim i = dt.Rows.Count - 1
           code_name = Val(dt.Rows(i).Item(id_))

أخي الكريم أعتقد أنو الخطأ بسبب هذا الكود :  Dim i = dt.Rows.Count - 1
استبدله بهذا الكود و جرب :  Dim i as Integer = dt.Rows.Count - 1