level 2
嚯嚯嚯虎😳
楼主
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGrid1.CaptionText = "学生基本数据"
DataGrid1.DataSource = DataSet11
OleDbDataAdapter1.Fill(DataSet11, "student")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDataRow As DataRow
myDataRow = DataSet11.Tables("student").NewRow()
myDataRow("Name") = "New"
DataSet11.Tables("student").Rows.Add(myDataRow)
OleDbDataAdapter1.Update(DataSet11, "student")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DataSet11.Tables("student").Rows(DataGrid1.CurrentCell.RowNumber).Delete()
OleDbDataAdapter1.Update(DataSet11, "student")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OleDbDataAdapter1.Update(DataSet11, "student")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Close()
End Sub
End Class
2016年11月21日 13点11分
1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGrid1.CaptionText = "学生基本数据"
DataGrid1.DataSource = DataSet11
OleDbDataAdapter1.Fill(DataSet11, "student")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDataRow As DataRow
myDataRow = DataSet11.Tables("student").NewRow()
myDataRow("Name") = "New"
DataSet11.Tables("student").Rows.Add(myDataRow)
OleDbDataAdapter1.Update(DataSet11, "student")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DataSet11.Tables("student").Rows(DataGrid1.CurrentCell.RowNumber).Delete()
OleDbDataAdapter1.Update(DataSet11, "student")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OleDbDataAdapter1.Update(DataSet11, "student")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Close()
End Sub
End Class