VBɾ³ýµÄÎÊÌâ¡£´íÎóÔõôÐ޸ģ¿

VB2005
ÎÒдµÄ´úÂ룺

Private Sub ɾ³ýÓû§ÐÅÏ¢_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim conn As SqlConnection = New SqlConnection(strconn)
  conn.Open()

  Dim strSQL As String = "Select * from WUser"
   
  Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, conn)
   
  da.Fill(dt)

   
  conn.Close()
  DataGridView1.DataSource = dt

  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  'µÃµ½datagridviewÖиıäµÄÊý¾ÝÐÐλÖÃ
  Dim nindex As Integer = DataGridView1.SelectedRows(-1).Index() '´ÓÊý¾ÝÔ´ÖÐɾ³ýÖ¸¶¨ÐÐ
dt.Rows(nindex).Delete()

   
  Dim conn As New SqlConnection(strconn)
   
  conn.Open()

   
  Dim strSQL As String = "Select * from WUser"
   
  Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, conn)
   
  Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)
  Dim change As Integer = da.Update(dt)