[求助]excel数据导入合并出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]excel数据导入合并出错

共有2921人关注过本帖树形打印复制链接主题：[求助]excel数据导入合并出错

qnsylxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：4 积分：103 威望：0 精华：0 注册：2015/10/4 17:39:00

[求助]excel数据导入合并出错 发帖心情

Post By：2015/10/7 2:01:00 [只看该作者]

初学foxtable，在本站上看了很多贴子，参照了一段合并代码，但不成功，提示“列“”不属于表人员信息表。“ 不知道是什么原因？恳请版主帮助。

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

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

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

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

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/7 9:35:00 [只看该作者]

先判断列是否在里面

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