我这样试了:(用的是ado绑定table) Private Sub Command1_Click() Adodc1.Recordset.UpdateBatch (adAffectCurrent) Adodc1.Recordset.Update End Sub 没有效果BTW,ADO没有batchupdate属性请继续帮忙解决,谢!
我试过的,根本不需要额外的脚本, 用datagrid绑定一个ADO就可以了!
用这个因该就可以了把 Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adoPrimaryRS.UpdateBatch adAffectAll If mbAddNewFlag Then adoPrimaryRS.MoveLast 'move to the new record End If mbEditFlag = False mbAddNewFlag = False SetButtons True mbDataChanged = False Exit Sub UpdateErr: MsgBox Err.Description End Sub
TO:petcoala 我的意思是,修改后,光标仍然聚焦在datagrid的该单元格中,未点击其他单元格,此时绑定的数据库没有立即更新终于解决了 Private Sub Command1_Click() Adodc1.Recordset.MoveLast 'movenext,movefirst...均可 End Sub 就可以了谢谢laney与各位
Private Sub Command1_Click()
Adodc1.Recordset.UpdateBatch (adAffectCurrent)
Adodc1.Recordset.Update
End Sub
没有效果BTW,ADO没有batchupdate属性请继续帮忙解决,谢!
用datagrid绑定一个ADO就可以了!
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr adoPrimaryRS.UpdateBatch adAffectAll If mbAddNewFlag Then
adoPrimaryRS.MoveLast 'move to the new record
End If mbEditFlag = False
mbAddNewFlag = False
SetButtons True
mbDataChanged = False Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.MoveLast 'movenext,movefirst...均可
End Sub
就可以了谢谢laney与各位