[princelovelorn]

السلام عليكم ورحمة الله وبركاته

بالنسبة لترتيب عرض السجلات

في الدالة loaddata في جملة الأستعلام ضع ORDER BY kism  بدل ORDER BY ID

كما بالكود التالي

كود :

Private Sub loaddata()
       dataconnection()
       Dim da As New OleDb.OleDbDataAdapter("SELECT * From daleel ORDER BY kism", cnn)
       Dim dt As New DataTable
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt
   End Sub

وبالنسبة لكود الحذف

إستبدل كود الحذف لديك بالكود التالي

كود :

   MessageBox.Show("هل تريد حذف الحساب", "تأكيد", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
       If vbYes Then
           dataconnection()
           Dim Del As New OleDb.OleDbCommand
           Dim delnum = DataGridView1.CurrentRow.Cells(0).Value
           Del.Connection = cnn
           Del.CommandType = CommandType.Text
           Del.CommandText = "DELETE * FROM daleel WHERE id like " & delnum & ""
           Del.ExecuteNonQuery()
           cnn.Close()
           loaddata()
       End If

تمنياتي لك بالتوفيق والنجاح