为什么要在Adodc1.Recordset.Update 行设置断点,才能立即更新库表?请高手帮忙.谢

Question

标题:为什么要在Adodc1.Recordset.Update 行设置断点,才能立即更新库表?请高手帮忙.谢.
在form1中有ADODC1与MSHFLEXGRID1绑定,还有COMMAND1(“删除记录”,调用form2)
在form2中有TEXT1,command2,还有ADODC1,与form1中的ADODC1同源,并与TEXT1绑定.
 
想要实现的功能:
1.       在form1中点击command1,出现form2
2.       在form2中的text1中输入要删除的记录的字段值,并找到该记录,删除它.
3.       删除后立即更新库表,并把删除结果体现在form1的MSHFlexGrid1中.
 
存在的问题:
1.       单击form2的command2后,form1中的mshflexgrid1无反应.但退程序后,发现库表确已删除.
2.       若在Adodc1.Recordset.Update 行设置断点,以上问题解决..
3.       请求各位专家高手帮忙.
4.       万分感激
 
 
 
部分代码如下:
Private Sub Form_Load()
    Adodc1.Recordset.Sort = "[期号] DESC"
    Adodc1.Recordset.MoveFirst
    Text1.Text = Val(Adodc1.Recordset.Fields("期号")) ‘默认删除第一条记录
End Sub
 
Private Sub command2_click()
    Adodc1.Recordset.Find "[期号]=" & Text1.Text
    If Adodc1.Recordset.EOF = False Then '若有该字段值的记录存在
        Adodc1.Recordset.Delete
        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Update '断点设置处.
        Adodc1.Refresh
        Adodc1.Recordset.Sort = "[期号] DESC"
'///////////////////后又加入以下五行代码仍然不行.
‘///////////////////但在另一个recordset.addnew过程中加入,则问题解决.
'    Form1.Adodc1.Recordset.Update
'    Form1.Adodc1.Refresh
'    Form1.Adodc1.Recordset.Sort = "[期号] desc"
'    Form1.Adodc1.Recordset.MoveFirst
'    Form1.MSHFlexGrid1.SetFocus
'    Form1.MSHFlexGrid1.Refresh
'//////////////////////////////////////////////////////
        Unload Me
    End If
End Sub

Answer 1

这样试试：你在Form1写一个“刷新”的公用方法，就是重新查询的作用，
然后Form2删除记录后，调用Form1的“刷新”方法。