Private Sub Form_Unload(Cancel As Integer)
Dim I As Integer

On Error GoTo errhandle:

AdodcMain.Refresh
AdodcMain.Recordset.MoveFirst '指向第一条记录
For I = 1 To AdodcMain.Recordset.RecordCount '记录的数量.
'删除所有用户的IP及端口的 Index 的值.
AdodcMain.Recordset("IP") = "0.0.0.0"
AdodcMain.Recordset("远程端口") = 0
AdodcMain.Recordset("Index") = 0
AdodcMain.Recordset.MoveNext '指向下一条记录
DoEvents '???? 做 事件?????????
Next I
AdodcMain.Recordset.Update

Exit Sub
errhandle:
MsgBox Err.Description

End Sub




请问:为什么会出现如下错误.

[此贴子已经被作者于2005-12-15 1:14:30编辑过]

问题解决了....

Private Sub Form_Unload(Cancel As Integer)
Dim I As Integer

On Error GoTo errhandle:

AdodcMain.Refresh
AdodcMain.Recordset.MoveFirst '指向第一条记录
For I = 1 To AdodcMain.Recordset.RecordCount '记录的数量.
'删除所有用户的IP及端口的 Index 的值.
AdodcMain.Recordset("IP") = "0.0.0.0"
AdodcMain.Recordset("远程端口") = 0
AdodcMain.Recordset("Index") = 0
AdodcMain.Recordset.MoveNext '指向下一条记录
DoEvents '???? 做 事件?????????
Next I
AdodcMain.Recordset.MoveFirst '加上这条语句!!!不然.Update会出错..
AdodcMain.Recordset.Update

Exit Sub
errhandle:
MsgBox Err.Description

End Sub

还有. DoEvents 这语句是什么作用.