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

 

标题:为什么要在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