以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]一段时间后打开窗口有很高延迟  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186985)
--  作者：jshuipu66033
--  发布时间：2023/6/13 8:38:00
--  [讨论]一段时间后打开窗口有很高延迟
项目完成编译，相同数据量下，打开子窗口的速度相比前几天有很高的延迟，最慢的能到1分钟。现在项目初始不加载数据，操作时只加载所操作单号的数据。速度一样慢。打开子窗口的代码【forms("订单").show】【forms("订单").contcorls("textbox1").value = "订单明细"】。还请大神解惑，给点加速建议
--  作者：有点蓝
--  发布时间：2023/6/13 8:54:00
--  
窗口有很多控件？窗口打开时执行了什么代码？窗口里有没有表格，会加载很多数据？
--  作者：jshuipu66033
--  发布时间：2023/6/13 9:48:00
--  
窗口里4个textbox，2个button,1个sqltable,1个table，窗口初始加载一个订单号的订单明细，在sqltable显示，sqltable数据不超过10行，table加载数据不超过30行。就是看到打开很慢，所以限制加载数，执行sqltable的click事件筛选table数据时，卡顿最明显
--  作者：有点蓝
--  发布时间：2023/6/13 9:54:00
--  
sqltable的click事件代码看看
--  作者：jshuipu66033
--  发布时间：2023/6/13 10:03:00
--  
sqltable总共3个事件有代码：prepareedit:Select Case e.Col.Name
    Case "G色", "A色", "B色", "C色", "D色", "E色"
        Dim tr As Row = Tables("订单").Current
        e.Col.ComboList = DataTables("样品物料").SQLGetComboListString("颜色", "样品编号 = \'" & tr("样品编号") & "\' and 样品性质 = \'" & tr("样品性质") & "\'")
End Select
e.Table.Save

datacolchanged:Select Case e.Col.Name
    Case "G色"
        If e.Row.IsNull("G色") = False Then
            If cm IsNot Nothing Then
                Dim cms() As String = cm.Split("|")
                For i As Integer = 0 To cms.Length - 1
                    Tables("订单.订单明细").AddNew
                    tr = Tables("订单.订单明细").Current
                    tr("G色") = e.Row("G色")
                    tr("计数") = i + 1
                    tr("尺码") = cms(i)
                Next
                Tables("订单明细").Save
            Else
                MessageBox.Show("尚未设置尺码组！")
                Return
            End If
        End If
    Case "A色", "B色" , "C色", "D色", "E色"
        If e.Row.IsNull("G色") = True Then
            MessageBox.Show("主色不能为空！")
            Return
        Else
           txt = e.Col.Name
           DataTables("订单明细").ReplaceFor(txt, e.Row(txt), "生产单号 = \'" & Tables("订单").Current("生产单号") & _
           "\' and G色 = \'" & e.Row("G色") & "\'")
            
        End If 
End Select



click:Tables("订单.订单明细").Filter = "G色 = \'" & e.Table.Current("G色") & "\'"
--  作者：有点蓝
--  发布时间：2023/6/13 10:22:00
--  
prepareedit事件执行很频繁的，1秒就有很多次，不建议使用SQLGetComboListString，最好是全部加载"样品物料"这个表数据然后使用GetComboListString。另外加多一个判断：http://www.foxtable.com/webhelp/topics/0605.htm，看示例二第3点
--  作者：jshuipu66033
--  发布时间：2023/6/13 10:59:00
--  
好的，谢谢