set datacombol.rowsource=rs1
set datacombol.datasource=rs2
当点击datacombol时 调用rs2.update 时rs2不更新.
解决办法rs2.move 1 再调用update 然后再rs2.move -1
Public Sub save_Click()
On Error GoTo doerr
command = "save"
RaiseEvent saveclick
If m_recordset Is Nothing Then Exit Sub
m_recordset.Move 1 'datacombol bug
m_recordset.UpdateBatch
m_recordset.Move -1
MsgBox ("修改成功!")
add.Enabled = True