Foxtable(狐表) → 用户栏目 → 专家坐堂 → 项目运行速度求教？


  共有3724人关注过本帖平板打印复制链接

主题：项目运行速度求教？
帅哥哟，离线，有人找我吗？
lisheng1971
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00 		项目运行速度求教？  发帖心情 Post By：2018/12/22 16:29:00 [只看该作者]

项目还未发布，有1个60多列的表，现在1、启动大概要40秒档案库右（未加载数据）；
                                                  2、加载60多列、10万来行的表数据大概要40秒左右；
                                                  3、导入2万来行的数据大概要1分半－2分钟左右；
                                                  4、设置了1个“模糊查询”按钮，查询时间很长（没耐心算了）。
请教版主，这是我的表代码有什么问题还是数据量大了就是这个速度？（运行基本正常，就是速度慢，有时会死机）

“模糊查询”按钮代码如下：
Dim tab As WinForm.TabControl = e.Form.controls("TabControl1")
If tab.SelectedPage.Text = "鉴定信息汇总" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "报名登记汇总" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "中高级工资审" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "中高级工考核" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "技师高技资审" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "技师高技理论" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "技师高技实潜" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "上会评审汇总" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
ElseIf tab.SelectedPage.Text = "证书编号汇总" Then
    Dim str As String = e.form.controls("Textbox1").Text
    Dim filter As String = "1=2"
    For Each c As Col In CurrentTable.Cols
        filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
    Next
    CurrentTable.Filter = filter
    
End If
 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02734 秒, 5 次数据查询