[浏览完整版]
标题：加载数据总是说超时
1楼
温馨的大树 发表于：2023/12/4 19:10:00打开项目时总是提示查询超时已过期，其实项目打开后只需加载几百个订单，不知道怎么会这么久时间，以前在其它服务器上面同样的项目不会这样的问题，几百条数据很快就好了！
此主题相关图片如下：(rgck8uw(9g_a431f(txg.png
此主题相关图片如下：(rgck8uw(9g_a431f(txg.png2楼
有点蓝 发表于：2023/12/4 20:35:00可能：
1、网络慢
2、数据库数据多，没有优化，可以参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=158943&replyID=&skin=1
3楼
温馨的大树 发表于：2023/12/4 20:52:00全部数据下载也比打开项目来得快多了，不是网速的问题，一直就是提示查询超时，其实也不需要查询什么，之前在其它服务器上也用过，从来没有这个问题，也没有做什么优化
4楼
有点蓝 发表于：2023/12/4 20:56:00如果是SqlServer，跟踪后台数据库看执行的那一条sql慢
5楼
温馨的大树 发表于：2023/12/4 23:43:00项目的AfterOpenProject事件代码是这样的
With DataTables("订单明细表")
.adduserstyle("日期分隔", Color.red, Color.white)
.LoadFilter = "订单日期>= '" & Date.Today.AddDays( - 30) & "'"
.Load()
End With
MainTable = Tables ("订单明细表")
Tables("订单明细表").Sort = "订单日期,员工_姓名,订单时间,交通地址_城市"
If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator Then
TableCaptionVisible = False
End If
6楼
温馨的大树 发表于：2023/12/4 23:44:00 Select Case user.Group
Case "调度部"
Dim rb As RibbonMenu.Tab = RibbonTabs("订单管理")
rb.Visible = False
Dim rb4 As RibbonMenu.Tab = RibbonTabs("统计查询")
rb4.Visible = False
Dim rb6 As RibbonMenu.Tab = RibbonTabs("财务对账")
rb6.Visible = False
Tables("订单明细表").Cols.Remove("经纪收入","公司收入","归属经纪","归属收入","第三方","第三方收入","隐藏","客服收入","调度操作_统计","员工收入","结账员工","结账公司","经纪_姓名","经纪_编号","员工结算","客服结算","经纪结算","CS结算","CS")
Case "客服部"
Dim rb1 As RibbonMenu.Tab = RibbonTabs("调度操作")
rb1.Visible = False
Dim rb2 As RibbonMenu.Tab = RibbonTabs("计划操作")
rb2.Visible = False
Dim rb3 As RibbonMenu.Tab = RibbonTabs("信息发布")
rb3.Visible = False
Dim rb5 As RibbonMenu.Tab = RibbonTabs("统计查询")
rb5.Visible = False
Dim rb6 As RibbonMenu.Tab = RibbonTabs("财务对账")
rb6.Visible = False
Tables("订单明细表").Cols.Remove("经纪收入","隐藏","调度操作_统计","公司收入","归属经纪","归属收入","调度操作_已完成","第三方","第三方收入","员工收入","结账员工","结账公司","经纪_姓名","经纪_编号","员工结算","经纪结算","CS结算","CS")
Case "第三方"
Dim rb1 As RibbonMenu.Tab = RibbonTabs("调度操作")
rb1.Visible = False
Dim rb2 As RibbonMenu.Tab = RibbonTabs("计划操作")
rb2.Visible = False
Dim rb3 As RibbonMenu.Tab = RibbonTabs("信息发布")
rb3.Visible = False
Dim rb5 As RibbonMenu.Tab = RibbonTabs("统计查询")
rb5.Visible = False
Tables("订单明细表").Cols.Remove("经纪收入","隐藏","调度操作_统计","公司收入","归属经纪","归属收入","调度操作_已完成","第三方","第三方收入","客服收入","员工收入","结账员工","结账公司","经纪_姓名","经纪_编号","员工结算","经纪结算","CS结算","CS")
End Select
7楼
温馨的大树 发表于：2023/12/4 23:46:00If syscmd.project.update(False, False) = False Then
end if ,前面两段代码在这个IF内的
现在就是不知道怎么原因导致下载订单明细表失败，还有查询超时
8楼
有点蓝 发表于：2023/12/5 8:32:009楼
温馨的大树 发表于：2023/12/5 17:05:00我的订单明细表是之前数据导出为ECEL格式文档，然后在这个系统开发的时候，导入进来的，是不是因为没有Identfy这一列的原因啊，一直什么查询超时。
此主题相关图片如下：ha4}0qi@tu6@mlu{r%$q$n.png
10楼
有点蓝 发表于：2023/12/5 17:36:00列名写错了，_identify