求助:表格控件数据修改后刷新不了,代码贴上了,高手指点!
Thisform.LockScreen=.t.Thisform.grid1.RecordSource=""
use e:\lzsto\data\lrb.dbf
dele all for 单号<99999999999
pack
use e:\lzsto\data\lzsto.dbf
append from e:\lzsto\data\lrb.dbf
use e:\lzsto\data\lrb.dbf
zap
messagebox("上传成功,点击退出!")
append blank
repl 日期 with date(),付款否 with .t.
Thisform.grid1.RecordSource="lrb.dbf"
Thisform.LockScreen=.F.
thisform.grid1.refresh()