vb.net datagridview更新不到数据源

[xudof]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
conn.Open()
' If ds.HasChanges() Then
Dim ocb As New OleDbCommandBuilder(da)
da.Update(ds, "dt1")
ds.Tables("dt1").AcceptChanges()
MessageBox.Show("更新成功")
conn.Close()
' End If
Catch ex As Exception
MessageBox.Show("更新失败！>_<")
End Try
End Sub
‘’请问以上代码执行时显示更新失败是什么原因？？？

[snlixing]

先把try catch去掉，设置断点进行调试看看

[取名障碍症]

Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adpProduction) Dim myRowState As DataViewRowState = DataViewRowState.ModifiedCurrent Or DataViewRowState.Deleted Or DataViewRowState.Added detailsBindingSource.EndEdit() For Each myRow As DataRow In myEngineDataset.Tables("生产安排").Select("", "", myRowState) Select Case myRow.RowState Case DataRowState.Modified '更新数据 adpProduction.UpdateCommand = builder.GetUpdateCommand Try adpProduction.Update(myEngineDataset, "生产安排") MsgBox("已更新") Catch ex As Exception MsgBox(ex.ToString) End Try 发一段代码给你,比对一下!