以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  excel文件导入 实现单文件选择导入 现在怎么实现多个excel文件一起导入呢?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136254)
--  作者：李孝春
--  发布时间：2019/6/10 13:26:00
--  excel文件导入 实现单文件选择导入 现在怎么实现多个excel文件一起导入呢?
Dim dlg As New OpenFileDialog
    dlg.Filter = "Excel文件|*.xls;*.xlsx"
    Dim tb4 As WinForm.Table = e.Form.Controls("Table4")
    tb4.Table.DataTable.DataRows.Clear
    If dlg.ShowDialog =DialogResult.OK Then
        DataTables("案件基本信息").LoadFilter="[_identify] = 0"
        DataTables("案件基本信息").Load
        Dim Book As New XLS.Book(dlg.FileName)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim c As Integer
        
        For i As Integer = 0 To sheet.Cols.Count -1
            If sheet(0,i).text = "部门受案号" Then
                c = i
                Exit For
            End If
        Next
        
        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim  r As  Row  = tb4.Table.AddNew
            For i As Integer = 0 To sheet.Cols.Count -1
                Dim cname As String = sheet(0, i).text
                If  tb4.Table.Cols.Contains(cname) Then
                    r(cname) = sheet(n, i).Text
                ElseIf cname = "移诉意见" Then
                    r("移送意见") = sheet(n, i).Text
                ElseIf cname = "移诉案由" Then
                    r("移送案由") = sheet(n, i).Text
                    r("涉嫌案由") = sheet(n, i).Text
                ElseIf cname = "审结情况" Then
                    r("审结处理结果") = sheet(n, i).Text
                End If
            Next
        Next
    End If
--  作者：有点甜
--  发布时间：2019/6/10 14:53:00
--  
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "Excel文件|*.xls;*.xlsx"
Dim tb4 As WinForm.Table = e.Form.Controls("Table4")
tb4.Table.DataTable.DataRows.Clear
If dlg.ShowDialog =DialogResult.OK Then
    DataTables("案件基本信息").LoadFilter="[_identify] = 0"
    DataTables("案件基本信息").Load
    For Each file As String In dlg.FileNames
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim c As Integer
       
        For i As Integer = 0 To sheet.Cols.Count -1
            If sheet(0,i).text = "部门受案号" Then
                c = i
                Exit For
            End If
        Next
       
        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim  r As  Row  = tb4.Table.AddNew
            For i As Integer = 0 To sheet.Cols.Count -1
                Dim cname As String = sheet(0, i).text
                If  tb4.Table.Cols.Contains(cname) Then
                    r(cname) = sheet(n, i).Text
                ElseIf cname = "移诉意见" Then
                    r("移送意见") = sheet(n, i).Text
                ElseIf cname = "移诉案由" Then
                    r("移送案由") = sheet(n, i).Text
                    r("涉嫌案由") = sheet(n, i).Text
                ElseIf cname = "审结情况" Then
                    r("审结处理结果") = sheet(n, i).Text
                End If
            Next
        Next
    Next
End If