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


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

主题：项目运行速度求教？
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/23 11:34:00 [只看该作者]

做一个对应的实例发上来测试。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
wakai
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：370 积分：3607 威望：0 精华：0 注册：2016/5/25 21:31:00 		  发帖心情 Post By：2018/12/23 15:20:00 [只看该作者]

系统真正能使用必须用SQLtable，局域网内实时更新数据+表单独使用时再加载

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/23 15:43:00 [只看该作者]

实例发上来才能测试。请做一个对应的，大数据量的项目发上来看看。

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng1971
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00 		  发帖心情 Post By：2018/12/23 16:15:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看1、这个是自己为了工作，方便数据管理及查询等做的，只是单机用的，水平不够，这个都还没搞明白，局域网的就更不会了！另个SQLTABLE是什么？
             2、这个相应实例怎么做？里面涉及大量不能公开的数据信息！就算能管个头太大，传不上啊！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/23 16:20:00 [只看该作者]

1、你的数据库是什么数据库？如果是sqlserver数据库，开启加载慢，看看 http://www.foxtable.com/webhelp/scr/2730.htm

 

2、开始不加载数据，不加载表呢？

 

http://www.foxtable.com/webhelp/scr/1268.htm

 

http://www.foxtable.com/webhelp/scr/2752.htm

 

http://www.foxtable.com/webhelp/scr/2757.htm

 

3、导出数据慢，是挺正常的情况的，你用什么方式导出？saveexcel？做个例子测试

 

4、新做一个项目，不输入任何代码，导入数据，测试加载等功能。是否也慢？
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng1971
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00 		  发帖心情 Post By：2018/12/23 16:42:00 [只看该作者]

谢版主！我导入、导出都是用的EXCEL，我先消化消化，有问题再请教。

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng1971
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00 		  发帖心情 Post By：2018/12/23 20:46:00 [只看该作者]

版主请指教：我的项目中有---1、主窗口一个（类似门脸，不起别的作用），这个启动大概要15秒左右；

                                      2、管理窗口一个，其中控件有：分区面板2个，页面集合1个（分有10来个页面），目录树1个，按钮若干，其它若干；

                                      3、内部表几个，其中表1变动最频繁，数据量也最大，页面集合中有几个页面中的表控件是它的副表，另有表2、表3等在其它页面，都基本为固定的，没有数据变化，只是为表1中的某些列作判断时起比对、引用作用；

                                      4、经试验：清空表1代码、导入22000来行EXCEL数据（60来列）用了150秒左右，跟没清空代码前大致相当。

这个是不是我的项目结构上有问题？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/23 20:55:00 [只看该作者]

1、加载表格等需要时间的，加载完表格后，才会执行afterOpenProject等代码打开窗口的；

 

如果你需要【门脸】，试试 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=128250&replyID=858744&skin=1

 

2、3、4 导入代码尝试优化一下，比如用二维数组，如 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=114559&skin=0

 

具体导入的速度，发实例上来测试和优化。
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng1971
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00 		  发帖心情 Post By：2018/12/23 21:54:00 [只看该作者]

这个实例太不好做了，精减下，版主给看看

 回到顶部
总数 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.05664 秒, 4 次数据查询