datagrid

'datagrid记录更新

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.OleDbDataAdapter1.Update(DataSet11.GetChanges)
        DataSet11.AcceptChanges()

    End Sub

'datagrid记录删除

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim rowno As Integer
        rowno = DataGrid1.CurrentRowIndex
        DataSet11.学生名册.Rows(rowno).Delete()
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(OleDbDataAdapter1)

'要加入Imports system.data.oledb

        OleDbDataAdapter1.Update(DataSet11.GetChanges)
    End Sub