加入判断
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("正式职工").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"从事专业类别","姓名","身份证号","民族","参加工作日期","出生日期","性别","年龄","工龄","院龄","所在科室","医师执业证书编码","医师执业类别","医师执业范围","行政业务管理职务","专业技术资格评","专业技术资格聘","学历","学位","所学专业","毕业院校","专科特长","本月人员流动情况","调入/调出时间","备注","政治面貌","入党团时间","籍贯","现有资格取得日期","现有资格聘用日期","进院日期","相片","资格取得时间","聘用时间"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,2).Text
If DataTables("正式职工").Find("身份证号= '" & bh & "'") Is Nothing Then '如果不存在同"题目"的学术论文
Dim r As Row = Tables("正式职工").AddNew()
For m As Integer = 0 To nms.Length - 1
If Sheet(n,m).Text <> "" Then
r(nms(m)) = Sheet(n,m).Value
End If
Next
End If
Next
Tables("正式职工").ResumeRedraw()
End If