Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]下面这段 代码如何优化？


  共有2543人关注过本帖树形打印复制链接

主题：[求助]下面这段 代码如何优化？
帅哥哟，离线，有人找我吗？
18523982317
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00 		[求助]下面这段 代码如何优化？  发帖心情 Post By：2016/8/16 8:33:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excle|*.xlsx" '设置筛选器
Dim c As Integer = 0
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("工资总表导入").StopRedraw()
    
    For sr As Integer = 1 To sheet.Rows.Count -1
        Dim r As Row = Tables("工资总表导入").AddNew
        For sc As Integer = 0 To sheet.Cols.Count -1
            For Each dc As DataCol In DataTables("工资总表导入").DataCols
                If dc.Name = sheet(0,sc).Value Then
                    r(dc.name) = sheet(sr,sc).Value
                End If
            Next
        Next
        c = c +1
    Next
    Tables("工资总表导入").ResumeRedraw()
    MessageBox.Show("导入完成,共导入" & c & "条记录")
End If





求这段代码优化，数据导入时间过长
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：857 积分：6156 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2016/8/16 9:23:00 [显示全部帖子]

以下是引用Hyphen在2016/8/16 9:02:00的发言：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excle|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim t As Table = Tables("工资总表导入")
    t.StopRedraw()
    Dim c As Integer = t.Rows.Count
    Dim dict As new Dictionary(of Integer,String)
    For sc As Integer = 0 To sheet.Cols.Count -1
        If t.Cols.Contains(sheet(0,sc).Value) Then
            dict.Add(sc,sheet(0,sc).Value)
        End If
    Next
    
    For sr As Integer = 1 To sheet.Rows.Count -1
        Dim r As Row = t.AddNew
        For Each i As Integer In dict.Keys
            r(dict(i)) = sheet(sr,i).Value
        Next
    Next
    t.ResumeRedraw()
    MessageBox.Show("导入完成,共导入" & t.Rows.Count - c & "条记录")
End If


Dictionary  居然还有这个代码。。。。
但是这段代码我复制上去了 报错


错误提示： 列“”不属于表 工资导入。  工资总表导入我改成了工资导入，表重新复制了下源表。。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询