Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim str As String
Dim drow As DataRow
str = Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 0).ToString()
drow = Me.DataSet21.Tables(0).Rows.Find(Int32.Parse(str))
drow.Delete()
Me.SqlDataAdapter1.Update(Me.DataSet21)
End Sub
Dim str As String
Dim drow As DataRow
str = Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 0).ToString()
drow = Me.DataSet21.Tables(0).Rows.Find(Int32.Parse(str))
drow.Delete()
Me.SqlDataAdapter1.Update(Me.DataSet21)
End Sub