主题：醉了，5000条数据处理20分钟

Select Case e.DataCol.name
    Case "身份证号","户主姓名"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("身份证号") Then
        Else
            Dim filter As String
            filter = "身份证号 = '" & dr("身份证号") & "'"
            pr = DataTables("员工资料").Find(filter)
            If pr IsNot Nothing Then
                pr("姓名") = dr("户主姓名")
                pr("户主关系") = "户主"
            End If
        End If
End Select

删减无关的字段，再测试一下