主题：我想用狐表通过按钮实现这个功能如何实现！！！谢谢

两个论坛转悠不累呀。

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

“帐” “账”搞清了没有？

既然替换一行对了，再要替换所有行，加个流程语句不就行了？凡事要自己学会思考。

For Each dr As DataRow In DataTables("第1页").DataRows
    Dim dr1 As DataRow = DataTables("第1页").Find("户主代码 = '" & dr("户主代码1") & "'")
    if dr1 IsNot Nothing Then
        dr1("户主姓名") = dr("户主姓名1")
        dr1("身份证号") = dr("身份证号1")
        dr1("银行名称") = dr("银行名称1")
        dr1("银行账号") = dr("银行账号1")
        dr1("家庭地址") = dr("家庭地址1")
        dr1("替换标志") = "已替换"
    End If
Next