以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  我想用狐表通过按钮实现这个功能如何实现！！！谢谢  (http://foxtable.com/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 --   版主看看 谢谢