主题：[求助]excel数据导入合并出错

先判断列是否在里面

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim colNames As New List(Of String)
    For i As Integer = 0 To sheet.Cols.Count - 1
        If sheet(0, i).Text > "" Then
            colNames.Add(sheet(0, i).Text)
        End If
    Next
   
    Dim dt As DataTable = DataTables("人员信息表")
    For i As Integer = 1 To sheet.Rows.Count - 1
        If dt.Find("身份证号 = '" & sheet(i, 0).Text & "'") IsNot Nothing Then
            Dim ndr As DataRow = dt.AddNew
            For j As Integer = 0 To sheet.Cols.Count - 1
                If dt.DataCols.Contains(ColNames(j)) Then
                    ndr(colNames(j)) = sheet(i, j).Text
                End If
            Next
        End If
    Next
End If

1、说明表里面没有你excel的列；

2、只读，说明项目所在的文件夹，没有写权限。

和其他代码冲突了，阻止其他事件触发看看

http://www.foxtable.com/help/topics/2218.htm