主题:更新表
zhengxinhai
[专家分:30] 发布于 2010-02-28 10:46:00
有两个表,两个表结构完全一致,每个表都有八十个字段,其中有姓名,身份证两个字段。
我有一个表作为基础表,另一个作为工作表,若工作表除姓名、身份证不更改外,其他作适当变化,请问有没有简单的语句,不用一个一个写update,实现基础表随工作表数据一致更新呢?
回复列表 (共7个回复)
沙发
wzxc [专家分:9440] 发布于 2010-02-28 11:11:00
采用缓存技术,一个表足矣。下面来模拟excel的退出效果
在表单的queryunload事件中:
Local lnAnswer,lcmodified
Thisform.lxiugai=.F.
Scan
lcmodified=Getfldstate(-1)
If '2'$lcmodified Or '3'$lcmodified Or '4'$lcmodified
Thisform.lxiugai=.T.
Exit
Endif
Endscan
If Thisform.lxiugai=.T.
lnAnswer=Messagebox('当前表数据已被修改,是否保存?',3+32+512,'系统提示')
Do Case
Case lnAnswer=6
=Tableupdate(.T.) &&更新
Thisform.Release
Case lnAnswer=7
=Tablerevert(.T.) &&放弃更新
Thisform.Release
Case lnAnswer=2
Nodefault
Endcase
Else
Thisform.Release
=Tablerevert(.T.)
Endif
板凳
zhengxinhai [专家分:30] 发布于 2010-02-28 11:44:00
我的一个服务器和客户端,基础表在服务器,工作表在客户端,请问该怎么办呢?另一方面也学的东西。谢谢
3 楼
wzxc [专家分:9440] 发布于 2010-02-28 14:32:00
呵呵,我这个适用本地表。
远程视图怎么样?网络我没研究。
4 楼
zhengxinhai [专家分:30] 发布于 2010-02-28 18:57:00
谢谢你wzxc老师,祝您节日快乐!!
请问有没有我问的语句呢,怎么写?
5 楼
wzxc [专家分:9440] 发布于 2010-02-28 20:50:00
最近刚刚弄懂了本地视图。
过去我用两个表连接成一个临时表,来处理数据,完了也是用update来更新源表。感觉很笨,就开始研究视图,视图可以自动发送更新,不必写具体的代码。
你是网络版的话,看看远程试图如何?能否达到你的要求。我不具备条件,还没研究过网络,开发的项目不涉及网络。
谢谢你的祝福。也祝你节日快乐,也同时祝你事业有成。
6 楼
zhengxinhai [专家分:30] 发布于 2010-02-28 22:00:00
老师,网络版我一点也不懂。给咱说你的方法可以吗?我不想直接打开基本表。
7 楼
wzxc [专家分:9440] 发布于 2010-03-01 11:05:00
http://www.51yanxiu.com/comp/ncre/2/vfp/20090527/gwy_227980.html
http://www.educity.cn/help/VF/200908301701291678.htm
我来回复