为什么要按两遍才能刷新数据? (在线给分)

PB6.5开发.数据库ACCESS 2000. 用ODBC连接.

问题是: 第一次执行事件的时候数据窗口总是没有办法刷新,
等第二次执行同一事件的时候数据窗口会显示上一次插入的数据?





代码如下:

insert into inout (item,docdate,detail,moneyin,moneyout,moneylast,beizhu)
values (:newitem,:ls_docdate,:ls_detail,0,:ls_moneyout,:ls_moneylast,:ls_beizhu) USING SQLCA;

If SQLCA.SQLDBCode=0 Then
COMMIT using sqlca;//提交事务
else
MessageBox("数据库错误","插入失败")
ROLLBACK USING SQLCA;//事务回滚
Return
End If
w_main.dw_1.SetTransObject(SQLCA)
w_main.dw_1.Retrieve()