锁定失败,这样子的,我把窗体上一个datacombo控件绑定到了这个ACCESS表中的一个字段,现在当执行adodc1.recordset.move 的时候(也就是下面代码时),数据库老是根据当前datacombo控件内容改写当前数据库,所以就想锁定它不让写,但是把access改成read属性后又提示move必须在一个可更新的库中移动,所以问问大家有没有更好的办法。\Private Sub DataCombo1_Click(Area As Integer) Adodc1.Recordset.MoveFirst If Not IsNull(DataCombo1.SelectedItem) Then Adodc1.Recordset.Move DataCombo1.SelectedItem - 1 End Sub
Adodc1.Recordset.MoveFirst
If Not IsNull(DataCombo1.SelectedItem) Then Adodc1.Recordset.Move DataCombo1.SelectedItem - 1
End Sub
加了这句代码,没有作用。