主题：[求助]怎么不添加重复的数据

for each dr as datarow in datatables("上表").datarows   

If DataTables("下表").Find("工号= '" & dr("工号") & "'") IsNot Nothing Then '如果此工号已经存在,则跳过.
        Continue For
    End If

dim r as row = tables("下表").addnew()

    r("工号") = dr("工号")
    r("姓名") = dr("姓名")
    r("性别") = dr("性别")

next