dlg.Filter= "Excel文件|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.Ok Then

    \'MessageBox.Show("你选择的是:" & dlg.FileName,"提示")

    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

        colNames.Add(sheet(0, i).Text)

    Next

   

    Dim dt As DataTable = DataTables("管理处文件")

    For i As Integer = 1 To sheet.Rows.Count - 1

        If dt.Find("序号 = \'" & sheet(i, 0).Text & "\'") Is Nothing Then

            Dim ndr As DataRow = dt.AddNew

            For j As Integer = 0 To sheet.Cols.Count - 1

                ndr(colNames(j)) = sheet(i, j).Text

            Next

        End If

    Next

End If

可是 如果字段为图片，其它字段能导入，带有图片的字段，图片列就为空了，导入不了图片列。