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

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)


    Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1") '---进度条
    p.Maximum = book.sheets.count - 1 + 1
    'MainTable.Rows.Count
    p.Minimum = 0
    p.Value = 0
    Application.DoEvents()
    e.Form.Controls("Label进度1").Text = "导入"
    e.Form.TimerEnabled = True
    e.Form.Controls( "导入状态" ).Visible = True
    For i As Integer = 0 To book.sheets.count - 1
        If book.sheets(i).name <> "盘点表-结存表" Then
            Application.DoEvents()
            e.Form.Controls("Label进度1").Text = "导入 '" & book.sheets(i).name & "' 分页." & book.sheets.count - 1

            ' msgbox(book.sheets(i).name)
            Dim Sheet As XLS.Sheet = Book.Sheets(i) '合并第一个表
            Tables("石仓").StopRedraw()

            '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
            Dim nms() As String = { "S日期","工單號碼","出倉重量","null1","入倉重量","null1","記事" }
            '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
            For n As Integer = 4 To Sheet.Rows.Count -1
                Dim bh0 As String = sheet(n,0).Text
                Dim bh1 As String = sheet(n,1).Text
                Dim bh2 As String = sheet(n,2).Text
                Dim bh44 As String = sheet(0,4).Text
                Dim bh00 As String = sheet(0,0).Text
                Dim bh22 As String = sheet(0,2).Text
                Dim bh7 As String = n
                Dim bh5 As String = sheet(0,5).Text
                If DataTables("石仓").Find("工單號碼 Is Null") Is Nothing Then '如果不存在同编号的订单
                    '            If DataTables("石仓").Find("SIZE = '" & bh5 & "'and S日期 ='" & bh0 & "'and 工單號碼 = '" & bh1 & "'and 出倉重量 = '" & bh2 & "'") Is Nothing Then
                    If DataTables("石仓").Find("SIZE = '" & bh5 & "'and 等級 ='" & bh44 & "'and 客戶 = '" & bh00 & "'and 工單號碼 = '" & bh1 & "' And 石類 = '" & bh22 & "'and 行记录 = '" & bh7 & "'") Is Nothing Then

                        Dim r As Row = Tables("石仓").AddNew()
                        For m As Integer = 0 To nms.Length - 1
                            r(nms(m)) = Sheet(n,m).Value
                        Next
                        r("SIZE") = sheet(0,5).Text
                        r("客戶") = sheet(0,0).Text
                        r("石類") = sheet(0,2).Text
                        r("等級") = sheet(0,4).Text
                        r("行记录") = n

                    End If

                End If

            Next
            Tables("石仓").Rows.Delete(Tables("石仓").Rows.Count - 1)
            p.Value = p.Value + 1
        End If
    Next



    Application.DoEvents()
    e.Form.Controls("Label进度1").Text = "保存中......."
    Tables("石仓").ResumeRedraw()
    CurrentTable.DataTable.Save()
    p.Value = p.Value + 1
    e.Form.Controls( "导入状态" ).Visible = False

    If DataTables.Contains("石仓") Then '如果石仓已经加载
        DataTables.Unload("石仓") '卸载石仓
    End If

    If DataTables.Contains("石仓") = False Then '如果石仓没有加载
        DataTables.Load("石仓") '加载石仓
    End If
    MainTable = Tables("石仓")
End If

主题：EXCEL导入问题[已解決]