主题：部署后，访问都特别慢，卡顿

老师，您好， 我给部署后，访问都特别慢，卡顿，一点就卡顿

1、没有部署的时候，是否慢？

 

2、访问什么的时候慢？具体怎么慢，怎么卡顿？

在自己的机子上登录、点击各个模块都行，但是我部署到服务器上后，

 

1、登录慢

2、点击各个模块，反应都很慢，一点不流畅

你是如何部署的？

 

你点击各个功能的时候，列举一个功能，执行了什么代码（代码贴出来），本来是多久响应，现在是多久响应？

我们是内部的局域网，，我先暂时部署到一个单机上，把publish文件夹发给用户，其他用户在访问这个的时候，登录很慢，个人报表也很慢 ，就是每个环节都特别慢

你把sqlserver数据库部署在某个电脑上，然后各个电脑都连接这个sqlserver服务器，这样部署？

 

如果是打开的时候慢，看看 http://www.foxtable.com/webhelp/scr/2730.htm

 

如果里面的各个功能都慢，看看是不是你每次都重新加载了表数据进来了，如果加载的数据量大的话，慢是正常的。

老师，您说的很有道理啊 ，后面的功能，我确实大部分都重新加载数据了，那这个如何优化呀？

 

2、我做了专业报表，然后，这个报表打开的时候也特别慢？这个如何优化呀

1、为什么都重新加载数据？不能一次性把数据加载进入，然后直接操作？

 

那你为什么每次都重新加载了数据？从局域网那里加载数据，和在本机加载数据，速度有差别的。

 

2、单独讨论一个功能吧，执行了什么代码（代码贴出来），本来是多久响应，现在是多久响应？

 

 

 

比如， 这个是单位管理的afterload事件代码：

''面包的锚定
e.form.Controls("Panel1").basecontrol.BringToFront
e.form.Controls("Panel2").basecontrol.BringToFront
e.form.Controls("Panel3").basecontrol.BringToFront
e.form.Controls("Panel4").basecontrol.BringToFront
e.form.Controls("Panel5").basecontrol.BringToFront
e.form.Controls("SplitContainer1").basecontrol.BringToFront
e.form.Controls("SplitContainer2").basecontrol.BringToFront

''字体颜色
For i As Integer = 1 To 1
       e.Form.Controls("Label" & i).ForeColor=color.darkblue
       e.Form.Controls("Label" & i).BorderStyle=BorderStyle.FixedSingle
       e.Form.Controls("Label" & i).TextAlign=ContentAlignment.MiddleCenter
Next

''设置窗口中表中列的高度和标题的高度
Tables("organList").AllowResizeRow=False
Tables("organList").SetHeaderRowHeight(28)

 

''设置加载条件
If _UserRole = "查询员" Then
    DataTables("organList").LoadFilter = ""
Else
    DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "' or superName = '" & _UserOrgan & "'"
End If
DataTables("organList").LoadTop = Nothing
DataTables("organList").load

''生成辅助列,并依据辅助列排序
Dim dt1 As DataTable = DataTables("organList")
For Each dr1 As DataRow In dt1.datarows
    If dr1.IsNull("superName") Then
        dr1("fuZhu") = format(dr1("_Identify"), "00000")
        Functions.Execute("AddChildren1",dr1,dt1)
    End If
Next
Tables("organList").sort = "fuZhu"

''查询,并设置显示列的排序条件
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("organList").GetComboListString("organName","","fuZhu")

''目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()''停止绘制目录树
tr.Nodes.Clear
For Each dr As DataRow In dt.datarows
   'If dr.IsNull("superName") Then
   If dr("organName") = _UserOrgan Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() ''恢复绘制目录树
''

此主题相关图片如下：1.png

 

这就是单位管理的窗口，我新增时、更改时、删除时，都会重新加载数据，展开，折叠时也会重新加载数据，这个如何优化呀

1、你要加载的数据量有多大？

 

2、去掉加载的代码，如 DataTables("organList").load 之后，速度是否正常？