Question

我创建了一个名为profiledetails的表。然后我在表单中设置了一个按钮和gridview。当我在gridview中选择一行并单击删除按钮时，所选内容将被删除，其他行将以相应格式重新排列。但是我的代码删除了我表中的所有记录，所以我可以更改此代码以获取输出。

   Public Class profiledetails
      Dim connenctor = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\vk\Database1.accdb;Jet OLEDB:Database Password=''"
      Dim con As New ADODB.Connection
      Dim rd As New ADODB.Recordset

     Private Sub view()
       Dim rds As New ADODB.Recordset
       rds.Open("SELECT * FROM profiledetails", con)
        profiledetailsview.Rows.Clear()
        Do While Not rds.EOF
        profiledetailsview.Rows.Add({rds("ID").Value, rds("name").Value, rds("fathername").Value, rds("age").Value, rds("dob").Value, rds("class").Value, rds("contact").Value})
        rds.MoveNext()
    Loop
    rds.Close()
End Sub

Private Sub DetailsForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    con.Open(connenctor)
    view()
    profiledetailsview.Enabled = True
End Sub

我使用了我的表记录显示在gridview上的代码。现在我在表单中添加一个删除按钮。当我选择网格中的任何行并单击删除按钮时，将在我的gridview和我的db记录中删除所选内容。删除记录后，表记录将重新排序以纠正形成。

即..，

 **GRID VIEW**

   1 ff kk ss ss 
   2 hh kk ii hh
   3 ss hh jj dd
   4 x  y   z  s
   5 rr tt yy hh
   6 rt  rt rt rt

现在我在gridview中选择第二行并删除它。该表格将以此格式显示。

    1 ff kk ss ss 
    3 ss hh jj dd
    4 x  y   z  s
    5 rr tt yy hh
    6 rt  rt rt rt 

after deleted a row. my table will be re-ordered based on my id. Like this,

    1 ff kk ss ss 
    2 ss hh jj dd
    3 x  y   z  s
    4 rr tt yy hh
    5 rt  rt rt rt

如何编写代码，以获得此输出...？请说出您的建议并解释其工作原理。

如何删除单个行并重新排序表

0 个答案: