[浏览完整版]
标题：我想用狐表通过按钮实现这个功能如何实现！！！谢谢
1楼
雨中的泪 发表于：2009/12/9 15:44:00当“户主代码”等于“户主代码1”时，这行其他相应列的数据（比如：[户主姓名]、[身份证号]、[银行名称]、[银行账号][家庭地址]）被后面相应行的数据（比如：[户主姓名1]、[身份证号1]、[银行名称1]、[银行账号1]、[家庭地址1]）数据所替换，并在『替换标志』写入“已替换”；当[户主代码]不等于[户主代码1]时，也不变化！！
比如:胡金的数据替换胡金学的数据，其他不变！！！
xiexie
比如:胡金的数据替换胡金学的数据，其他不变！！！
xiexie
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据替换.table |
2楼
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
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
3楼
雨中的泪 发表于：2009/12/9 16:15:00没办法，谢谢
4楼
雨中的泪 发表于：2009/12/9 16:22:00还是不行呀
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数据替换.table |
5楼
雨中的泪 发表于：2009/12/9 16:24:00
此主题相关图片如下：1.jpg
6楼
czy 发表于：2009/12/9 16:30:00“帐” “账”搞清了没有？
7楼
雨中的泪 发表于：2009/12/9 16:36:00搞财务就是这两个字不注意，谢谢
8楼
雨中的泪 发表于：2009/12/11 9:55:00它只替换第一行数据呀！！！
我这有几万行
我这有几万行
9楼
雨中的泪 发表于：2009/12/11 9:55:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:数据替换.table |
10楼
雨中的泪 发表于：2009/12/11 9:58:00版主看看
谢谢
谢谢