以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  想实现数据的替换如何实现,谢谢!!!  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=18670)

--  作者:易表拥护者
--  发布时间:2009/12/9 10:00:00
--  想实现数据的替换如何实现,谢谢!!!
想实现以下的目的:
当[户主代码]等于[户主代码1]时,这行其他相应列的数据([户主姓名]、[身份证号]、[银行名称]、[银行账号][家庭地址])被后面的 [户主姓名1]、[身份证号1]、[银行名称1]、[银行账号1]、[家庭地址1]数据所替换,并在『替换标志』写入“已替换”;
当[户主代码]不等于[户主代码1]时,数据不变换!!
谢谢egd文件下载
--  作者:易表拥护者
--  发布时间:2009/12/9 10:16:00
--  
版主,帮忙看看谢谢
--  作者:易表拥护者
--  发布时间:2009/12/9 10:19:00
--  
用按钮代码实现,谢谢
--  作者:易表拥护者
--  发布时间:2009/12/9 11:13:00
--  
版主,帮忙看看谢谢
--  作者:wjq1072
--  发布时间:2009/12/9 12:20:00
--  
[这个贴子最后由wjq1072在 2009/12/09 00:48pm 第 1 次编辑]

Eval("EvalFor(GridName,"""+Substitute(Substitute(Substitute(Eval("Substitute(""|@|#|"",""|"","""+Substitute(Mid(ListCols(Grid),0,Search("替换标志",ListCols(Grid))-1),"|",""")+""|""+Substitute(""|@|#|"",""|"",""")+""")"),"@",""",""If([户主代码]=[户主代码1],["),"#","1],["),"|","])"") And EvalFor(GridName,""")+"])"")") And EvalFor(GridName,"替换标志","If([户主代码]=[户主代码1],""已替换"","""")")
--  作者:wjq1072
--  发布时间:2009/12/9 12:49:00
--  
egd文件下载
--  作者:易表拥护者
--  发布时间:2009/12/9 14:34:00
--  
egd文件下载
--  作者:易表拥护者
--  发布时间:2009/12/9 14:36:00
--  
是这样的!!!
但还是不行!!!
当[户主代码]等于[户主代码1]时,这行其他相应列的数据([户主姓名]、[身份证号]、[银行名称]、[银行账号][家庭地址])清空被后面的 [户主姓名1]、[身份证号1]、[银行名称1]、[银行账号1]、[家庭地址1]相应行的数据所替换,并在『替换标志』写入“已替换”;
当[户主代码]不等于[户主代码1]时,数据不清空,也不变化!!

--  作者:易表拥护者
--  发布时间:2009/12/9 14:40:00
--  

--  作者:易表拥护者
--  发布时间:2009/12/9 14:41:00
--  
这时应是:胡金的数据替换胡金学的数据,其他不变!!!