Question

VFP表单中的保存按钮Click代码问题

local OK,YN
OK=.T.
do case
case empty(alltrim(thisform.txt订单号.value))
messagebox("订单号不能为空",48,"订单管理系统")
thisform.txt订单号.setfocus
OK=.F.
case empty(alltrim(thisform.txt货物编号.value))
messagebox("货物编号不能为空",48,"订单管理系统")
thisform.txt货物编号.setfocus
OK=.F.
case empty(thisform.txt货物单价.value)
messagebox("货物单价不能为空",48,"订单管理系统")
thisform.txt货物单价.setfocus
OK=.F.
case empty(thisform.txt货物数量.value)
messagebox("货物数量不能为空",48,"订单管理系统")
thisform.txt货物数量.setfocus
OK=.F.
endcase
if OK=.T.
YN=messagebox("确认保存？",48,"订单管理系统")
if YN=6
thisform.bmodify=.F.
thisform.bbrowse=.F.
thisform.modecontrol
thisform.refresh
endif
endif
这段代码我在运行后 不能保存数据 modecontrol程序是保证那些按钮在开始时保存和取消是不能点击的状态 在修改或添加状况下 只有保存和取消按钮能用
我在if YN=6 后加了这些
repl 订单号 with allt(thisform.txt订单号.value)
repl 货物编号 with allt(thisform.txt货物编号.value)
repl 货物名称 with allt(thisform.txt货物名称.value)
repl 货物类型 with allt(thisform.combo1.value)
repl 货物规格 with allt(thisform.combo2.value)
repl 货物单价 with allt(thisform.txt货物单价.value)
repl 货物数量 with allt(thisform.txt货物数量.value)
repl 订单总额 with allt(thisform.txt订单总额.value)
为什么还不行啊
谢谢指教

Answer 1

你保存数据的命令在哪？既没有insert、UPDATE，也没有repl，就算设的BUFFER也应该有TABLEUPDATE呀。

比的表单或者表的BUFFERMODE设了吗？如果设了要用TABLEUPDATE提交。如果没有在repl下面加一句FLUSH试试，将对表和索引所做的修改存入磁盘。