主题：[求助]请教一个代码问题（又要麻烦各位啦）

先上图....

此主题相关图片如下：qq图片20130731162316.jpg

图1

此主题相关图片如下：qq图片20130731162435.jpg

图2

图一是主表

图二是临时表

我目前已经实现的功能是：图一窗口中点击可以打开如图二这样的临时窗口，之后输入一些数据，然后点击‘一键导入’可以将图二表中的数据按照姓名导入主表中，这个功能已经实现了。目前的问题是如果临时表中的姓名输入错误就不好办了。

请问，能不能实现，当点击‘一键导入’时，先检查临时表的姓名列和主表的姓名列是否能对应上，如果有输入错误的姓名就弹出提示“*** 不在主表姓名列中！”。

谢谢。

先附上目前我‘一键导入’的代码（新手啊）：

Dim c As Integer = 0
For Each dr2 As DataRow In DataTables("临时表").DataRows
    For Each dr1 As DataRow In DataTables("主表").Select("[月份] = '" & _qjDate & "'")
        If dr2("姓名") = dr1("姓名") And dr1("月份") = _qjDate Then
            dr1("奖励_项目调整")+ = dr2("奖励_项目调整")
            dr1("奖励_房租补")+ = dr2("奖励_房租补")
            dr1("奖励_报销")+ = dr2("奖励_报销")
            dr1("奖励_项目奖励")+ = dr2("奖励_项目奖励")
            dr1("奖励_年终奖励")+ = dr2("奖励_年终奖励")
            dr1("奖励_其他")+ = dr2("奖励_其他")
            dr1("奖励_其他奖励备注") = dr2("奖励_其他奖励备注")
            dr1("处罚_考勤处罚")+ = dr2("处罚_考勤处罚")
            dr1("处罚_项目处罚")+ = dr2("处罚_项目处罚")
            dr1("处罚_违纪处罚")+ = dr2("处罚_违纪处罚")
            c = c + 1
        End If
    Next
Next
DataTables("考勤表").Save
MessageBox.show("保存成功!共计导入:" & c & "条数据!")