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