datagrid数据刷新问题，在线等待

Question

我做了两个窗体A和B，A有datagrid里面有数据；另外一个B窗体负责更新datagrid中的数据的内容。运行B后更新A的DATAGRID的数据，可是B退出后A中的数据无法刷新为最新的数据。我想在B退出时自动做一个A的数据刷新，不知如何实现。

Answer 1

在B窗体的formB_unload中写
　　set frmA.datagrid.datasource=adodc.recordset

Answer 2

如果没有用adodc,直接用：
   rs_ggl.Open "select * from hgsj", db, adOpenDynamic, adLockOptimistic
   Set dgr_lst.DataSource = rs_ggl
 在B窗体中如何刷新？

Answer 3

你可以这样。
你将rs_gg1定义为全局的记录集对象。
private sub formb_unload()
   set dgr_lst.datasource=nothing
   set dgr_lst.datasource=rs_gg1
   dgr_lst.refresh
end sub

Answer 4

……
 rs_ggl.Requery
Set frmB.dgr_lst.DataSource = rs_ggl

Answer 5

奇怪，以上的方法都不行。我只能设一个刷新按纽，手动进行刷新。我记录集定义如下：
rs_sJb.Open "select * from hgsj", db, adOpenDynamic, adLockPessimistic
不知是否有关系。

Answer 6

rs_sjb.cursorlocation =aduseclient '这句关键
rs_sJb.Open "select * from hgsj", db, adOpenDynamic, adLockPessimistic