Question

vb删除记录问题

请高手看这段代码:
On Error GoTo aa
Dim Msg, STYLE, Title '声明
STYLE = vbYesNo '定义按钮。
Msg = "您确定要删除吗?" '定义提示信息
Title = "提示" '定义窗口标题文字
Response = MsgBox(Msg, STYLE, Title)
If Response = vbYes Then ' 用户按下“是”。
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset.EOF = True Then
MsgBox "当前已是最后一 条符合条件的信息记录", , "返回"
Adodc1.Recordset.MoveLast
End If
Else ' 用户按下“否”。
End If
aa:
If Err.Number = 3021 Then
End If
/////////////////
执行时正确删除记录!可在DATAGRID控件中去还在!请问哪出问题了!
回复:windlf ----试过了!刷新DATAGRID也没有用!回复二!你的方法我都试过还是不行呀!

Answer 1

Adodc1.Refresh
DataGrid1.Refresh
我这么用
先刷adc 再刷dg

Answer 2

Adodc1.Recordset.Movelast
Adodc1.Recordset.MoveFirst

这就应该就没了。

我一般只用data adodc很少用，不过应该差不多的啊。
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
这样不行吗？