删除记录的代码

来源:互联网 发布:linux tomcat无法关闭 编辑:程序博客网 时间:2024/05/16 08:17
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