主题：[求助]excel 导入时存在的问题

 是的，只需要改红色的代码。

 代码的意思是，循环excel表格的每一行，取出单元格的值，跟foxtable的表格比较，是否存在，不存在，就加一行，接着循环每一列，把excel单元格的内容写进去

 加入判断

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