为什么保存后txt名称、txt规格才刷新其值？当时为什么不刷新？请高手帮忙改改！

压缩包中缺少数据库文件

上传下数据库文件

好了，传了，高手帮帮忙！

为什么保存后txt名称、txt规格才刷新其值？当时为什么不刷新？请高手帮忙改改！
if '入库'
thisform.txt产品编号.readonly=.f.
thisform.txt产品名称.readonly=.t.
thisform.txt产品规格.readonly=.t.
thisform.txt入库数量.readonly=.f.
thisform.txt入库时间.readonly=.f.
thisform.txt入库人员.readonly=.f.
'保存'

thisform.txt产品编号.interactiveChange
locate all for 产品代码.产品编号=thisform.txt产品编号.displayvalue
if !eof()
appe blan in 产品入库
  产品代码.产品名称=thisform.txt产品名称.Value
  产品代码.产品规格=thisform.txt产品规格.Value
endif
else
'入库'
thisform.txt产品编号.readonly=.t.
thisform.txt产品名称.readonly=.t.
thisform.txt产品规格.readonly=.t.
thisform.txt入库数量.readonly=.t.
thisform.txt入库时间.readonly=.t.
thisform.txt入库人员.readonly=.t.

endif
thisform.grid1.setfocus
thisform.grid1.refresh

做了较大修改，你看看吧。