主题：如何实现这个要求，谢谢

怎么会有这样的表？ 看不懂你要问的问题······

加上这个：dr("比较标志") = "数据已经复制"   对吗？

这个效果对吗？

此主题相关图片如下：未命名.jpg

加上5楼代码就可以了啊···     注意：若 姓名1 中有重复的名字，下面代码就Find不全了：：：：

For Each dr As DataRow In DataTables("第1页").DataRows
    Dim dr1 As DataRow = DataTables("第1页").Find("姓名1 = '" & dr("姓名") & "'")
    if dr1 IsNot Nothing Then
        dr1("序号2") = dr("序号")
        dr1("姓名2") = dr("姓名")
        dr1("性别2") = dr("性别")
        dr1("出生年月2") = dr("出生年月")
        dr1("家庭人口2") = dr("家庭人口")
        dr1("家庭住址2") = dr("家庭住址")
        dr1("整户金额2") = dr("整户金额")
        dr1("本人金额2") = dr("本人金额")
        dr1("补差金额2") = dr("补差金额")
        dr1("备注2") = dr("备注")
        dr1("比较标志2") = "已比较,同农户数据已经核对复制"
       
        dr("比较标志") = "数据已经复制"
    End If
Next
MessageBox.Show("数据已经替换完成!!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Question)

1、 因为找不到符合条件的行；

2、 “比较标志2” 列是double类型，没法填入字符。

如果你实在要达到目的，可以这样：

For Each dr As DataRow In DataTables("第1页").DataRows
    Dim dr1 As DataRow = DataTables("第1页").Find("户主代码1 ='" &  left(dr("户主代码"),16) & "'")
    If dr1 IsNot Nothing Then
        dr1("户主代码2") = dr("户主代码")
        dr1("农户姓名2") = dr("农户姓名")
        dr1("应补数量2") = dr("应补数量")
        dr1("比较标志2") = "已比较,同农户数据已经核对复制"      ' 比较标志2 改为字符型
        dr1("比较标志") = "已复制" 
    End If
Next
MessageBox.Show("数据已经替换完成!!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Question)