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

版主看看 谢谢

Dim r As Row = Tables("第1页").Current
Dim drs() As DataRow = DataTables("第1页").Select("户主代码 = '" & r("户主代码1") & "'")
For Each  dr As DataRow In drs
    dr("户主姓名") = r("户主姓名1")
    dr("身份证号") = r("身份证号1")
    '......
    dr("替换标志") = "已替换"
End If

代码有错 呀

版主看看 谢谢

Dim r As Row = Tables("第1页").Current
Dim drs As List(Of DataRow) = DataTables("第1页").Select("户主代码 = '" & r("户主代码1") & "'")
For Each  dr As DataRow In drs
    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