怎么没有人回呀?

着急呀!

是俺这个问题问的太愚蠢了,还是有难度,怎么没有同志回贴呀?

我的理解是：视图是张虚拟的表，没一次运行时它会根据你的表重新生成
所以，你在表中添加了新的记录，没有重新打开，是不会更新的

用视图更新源表的示例


test 表是一个记录单位信息的，主关键字是dw_id（整型），有8个字段。

表单5上只有一个 “text” 控件、一个 “命令按钮” 控件：

一个“text”控件：用于输入条件值（整型），未设定任何属性（全缺省）。

以下是“命令按钮”click 中的代码：
*******************begin***********************
open database c:\qtgl\论坛\数据1
tt=thisform.text1.value
creat sql view cxb as select * from test where test.dw_id=?tt
select 0
use cxb
lSuccess=CURSORSETPROP("Tables", "test", "cxb")
lSuccess=CURSORSETPROP("KeyFieldList", "dw_id", "cxb")
lSuccess=CURSORSETPROP("UpdateType", 1, "cxb")
lSuccess=CURSORSETPROP("UpdatableFieldList", "dwmc,xm,dh,bz", "cxb")
lSuccess=CURSORSETPROP("WhereType", 1, "cxb")
lSuccess=CURSORSETPROP("Buffering", 5, "cxb")
do form c:\qtgl\论坛\表单6
********************* end *************************

表单6上只有4个“text”控件、一个“命令按钮”控件：
4个“text”控件分别绑定cxb.dwmc,cxb.xm,cxb.dh,cxb.bz；除此之外未设定任何属性（全缺省）
以下是“命令按钮”click 中的代码：
*******************begin************************
lSuccess=CURSORSETPROP("SendUpdates", .t., "cxb")
select cxb
BEGIN TRANSACTION

* Try to update all records in selected table
m.lSuccess = TableUpdate(.T.,.F.) &&successful update
IF m.lSuccess
= messagebox( "提交成功。" )
END TRANSACTION
else
= messagebox( "抱歉，未提交上。请重做一次。" )
ROLLBACK
ENDIF
release thisform
********************* end ********************************

在表单6的destory事件中的代码：
***********************begin***************
select cxb
use
delete view cxb
select test
use
**********************end ********************

测试结果
先运行“表单5”，输入1000后，点击“命令按钮”后出现“表单6”。
在“表单6”上任意一个“text”控件上输入数据（随便按）后，点击“命令按钮”后出现：提交成功。
按“确定”后回到“表单5”。
重复后，无论改哪个“text”控件上的数据都正确提交！
 
 

感谢老师,再学习!