以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我想用狐表通过按钮实现这个功能如何实现!!!谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5379)

--  作者:雨中的泪
--  发布时间:2009/12/9 15:44:00
--  我想用狐表通过按钮实现这个功能如何实现!!!谢谢
当“户主代码”等于“户主代码1”时,这行其他相应列的数据(比如:[户主姓名]、[身份证号]、[银行名称]、[银行账号][家庭地址])被后面相应行的数据(比如:[户主姓名1]、[身份证号1]、[银行名称1]、[银行账号1]、[家庭地址1])数据所替换,并在『替换标志』写入“已替换”;当[户主代码]不等于[户主代码1]时,也不变化!!
比如:胡金的数据替换胡金学的数据,其他不变!!!
xiexie 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据替换.table


--  作者:czy
--  发布时间:2009/12/9 16:02:00
--  
两个论坛转悠不累呀。

Dim r As Row = Tables("第1页").Current
Dim dr As DataRow = DataTables("第1页").Find("户主代码 = \'" & r("户主代码1") & "\'")
if dr IsNot Nothing Then
    dr("户主姓名") = r("户主姓名1")
    dr("身份证号") = r("身份证号1")
    \'......
    dr("替换标志") = "已替换"
End If

--  作者:雨中的泪
--  发布时间:2009/12/9 16:15:00
--  
没办法,谢谢
--  作者:雨中的泪
--  发布时间:2009/12/9 16:22:00
--  
还是不行呀
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据替换.table


--  作者:雨中的泪
--  发布时间:2009/12/9 16:24:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:czy
--  发布时间:2009/12/9 16:30:00
--  
“帐” “账”搞清了没有?
--  作者:雨中的泪
--  发布时间:2009/12/9 16:36:00
--  
搞财务就是这两个字不注意,谢谢
--  作者:雨中的泪
--  发布时间:2009/12/11 9:55:00
--  
它只替换第一行数据呀!!!
我这有几万行
--  作者:雨中的泪
--  发布时间:2009/12/11 9:55:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据替换.table


--  作者:雨中的泪
--  发布时间:2009/12/11 9:58:00
--  
版主看看
谢谢