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

加上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)

同样的为啥不能执行？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据比较.table

同样的为啥不能执行？

同样的代码原理，为什么升级后就不能用了？谢谢

老大帮帮忙

老大帮帮忙

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

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

我虽然不知道你要干什么，但是知道你这个这个代码没有意义，你在命令窗口执行看看：

 

For Each dr As DataRow In DataTables("第1页").DataRows
    Dim dr1 As DataRow = DataTables("第1页").Find("户主代码1 = '" & dr("户主代码") & "'")
    If dr1 IsNot Nothing Then
        MessageBox.show("不错，至少还有一行相同")
        Return Nothing
    End If
Next
MessageBox.Show("没有一行是相同的，你的代码毫无意义") 

 

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

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)

呵呵，向mr725兄致敬。

同时也希望楼主在别人帮你写好代码的时候，至少应该表示一下谢意，最好也尝试去理解消化一下这些代码。