Imports System.Data Imports System.Data.OleDb PublicClass Form3Class Form3 Dim conn AsNew OleDbConnection("provider=Microsoft.Jet.OleDb.4.0;data source=c:\\base.mdb") Dim da As OleDbDataAdapter Dim ds AsNew DataSet() PrivateSub Form3_Load()Sub Form3_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load bind() End Sub Sub bind()Sub bind() Dim da AsNew OleDbDataAdapter("select code,name from commod", conn) da.Fill(ds, "com1") Me.DataGridView1.DataSource = ds.Tables("com1") End Sub Sub updateDB()Sub updateDB() da =New OleDbDataAdapter("select code,name from commod", conn) da.UpdateCommand =New OleDbCommand("update commod set name=@name where code=@code", conn) da.UpdateCommand.Parameters.Add("@name", OleDbType.Char, 30, "name") Dim para As OleDbParameter = da.UpdateCommand.Parameters.Add("@code", OleDbType.Char) para.SourceColumn ="code" para.SourceVersion = DataRowVersion.Original da.Fill(ds, "com2") '方法1 'Dim dr As DataRow 'For i As Integer = 0 To ds.Tables("com2").Rows.Count - 1 ' dr = ds.Tables("com2").Rows(i) ' dr("name") = ds.Tables("com1").Rows(i)("name") 'Next 'da.Update(ds, "com2") '方法2 da.Update(ds.Tables("com1").GetChanges(DataRowState.Modified)) bind() End Sub PrivateSub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click updateDB() End Sub End Class