主题：[求助]下述代码，如何数据引用的年度相同，则不引用，否则引用，如何修改代码？

Dim Cols1() As String = {"姓名","现任职务","级别","个人状态","基本工资_保留奖金","补贴_保留福补","特岗津补贴","基本养老金","享受职务","单位性质","单位名称","年度","已休假天数","级别档次","个人类别","职务区分","岗位等级","薪级","身份证号","是否省级文明单位","是否全国文明城市","离休干部月均生活补贴","性别","参加工作时间"}

Dim Cols2() As String = {"姓名","现任职务","级别","个人状态","基本工资_保留奖金","补贴_保留福补","特岗津补贴","基本养老金","享受职务","单位性质","单位名称","年度","已休假天数","级别档次","个人类别","职务区分","岗位等级","薪级","身份证号","是否省级文明单位","是否全国文明城市","离休干部月均生活补贴","性别","参加工作时间"}

For Each dr1 As DataRow In DataTables("人员情况表").Select("[身份证号] is not null")
    Dim dr2 As DataRow = DataTables("工资总表").find("身份证号 = '" & dr1("身份证号") & "' and 年度 = '" & dr1("年度") & "'")
    If dr2 Is Nothing Then
        dr2 = DataTables("工资总表").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    End If
Next

有点甜，谢谢了，但是上述代码，第一次导入的是2018年的，然后，我要导入2019年时，2018年的不导入，只导入2019年的，怎么修改代码，谢谢

明白了，弄好了，把身份证去掉，就可以了

Dim Cols1() As String = {"姓名","现任职务","级别","个人状态","基本工资_保留奖金","补贴_保留福补","特岗津补贴","基本养老金","享受职务","单位性质","单位名称","年度","已休假天数","级别档次","个人类别","职务区分","岗位等级","薪级","身份证号","是否省级文明单位","是否全国文明城市","离休干部月均生活补贴","性别","参加工作时间"}
Dim Cols2() As String = {"姓名","现任职务","级别","个人状态","基本工资_保留奖金","补贴_保留福补","特岗津补贴","基本养老金","享受职务","单位性质","单位名称","年度","已休假天数","级别档次","个人类别","职务区分","岗位等级","薪级","身份证号","是否省级文明单位","是否全国文明城市","离休干部月均生活补贴","性别","参加工作时间"}
For Each dr1 As DataRow In DataTables("人员情况表").Select("[身份证号] is not null")
    Dim dr2 As DataRow = DataTables("工资总表").find("年度 = '" & dr1("年度") & "'")
    If dr2 IsNot Nothing Then
        MessageBox.Show("本年度已导入,不能再导入!","温馨提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Exit For
    End If
    If dr2 Is Nothing Then
        dr2 = DataTables("工资总表").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    End If
Next