26-07-19, 05:47 PM
(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_))