打开还是很慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开还是很慢

共有3642人关注过本帖树形打印复制链接主题：打开还是很慢

yetle

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

打开还是很慢 发帖心情

Post By：2019/6/17 21:35:00 [只看该作者]

需求：

因为派发工序表里面的记录很多，希望点按钮后只加载订单号='" & Tables("分派工序_table2").current("订单号")的订单，可是打开还是很慢，是怎么回事

BeforeLoadOuterTable加了如下代码：

Select Case e.DataTableName

Case "用户表","账套管理","账号部门","权限表"

If e.DataTableName = "派发工序表" Then

e.Cancel = True '打开项目的时候不加载此表

e.SelectString = "Select * F rom {派发工序表} Where 订单号='" & Tables("分派工序_table2").current("订单号") & "'" '设置加载条件,注意如果主键不是_Identify,请改为实际的主键名称

End If

Case "报价单",

e.Cancel = True

Case Else '其他所有表默认都不加载

e.Cancel = True

End Select

按钮代码：

If DataTables.Contains("派发工序表") = False Then '如果表C没有加载

DataTables.Load("派发工序表") '加载表C

End If

forms("修改已扫码").show

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/17 21:52:00 [只看该作者]

这个代码没有任何意义。首先if语句是永远不会执行的，其次BeforeLoadOuterTable事件还没有加载表，也不存在任何table和窗口，更不用说窗口表的某一行了。

可以试试：

BeforeLoadOuterTable加了如下代码：

Select Case e.DataTableName

Case "用户表","账套管理","账号部门","权限表"

Case "派发工序表",

e.SelectString = "Select * F rom {派发工序表} Where [_Identify] is null"

Case Else '其他所有表默认都不加载

e.Cancel = True

End Select

afteropenproject事件

forms("分派工序").open

"分派工序"table2窗口表currentchanged事件：

if e.table.current isnot nothing

datatables("派发工序表").loadfilter = "订单号='" & e.table.current("订单号") & "'"

datatables("派发工序表").load

end if

yetle

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

Post By：2019/6/18 11:11:00 [只看该作者]

试过了，这样打开窗口没有数据，

打开分派工序窗口后点按钮后才打开修改已扫码窗口，因为派发工序表里面的记录很多，希望点按钮后只加载订单号='" & Tables("分派工序_table2").current("订单号")的订单

修改已扫码窗口AfterLoad：

If Forms("修改已扫码").Opened() '一定要判断用于模拟关联表的窗口是否已经打开

Dim h As Table = Tables("修改已扫码_table1")

With Tables("分派工序_table2")

If .Current IsNot Nothing Then

h.Filter = "订单号 = '" & .Current("订单号") & "' and 制单号 = '" & .Current("生产单号") & "' and 单据状态 = '已完成' "

Else

h.Filter = "False"

End If

End With

End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/18 11:20:00 [只看该作者]

比如

If Forms("修改已扫码").Opened '一定要判断用于模拟关联表的窗口是否已经打开
    Dim h As Table = Tables("修改已扫码_table1")
    With Tables("分派工序_table2")
        If .Current IsNot Nothing   Then
            h.DataTable.loadFilter = "订单号 = '" & .Current("订单号") & "' and 制单号 = '" & .Current("生产单号") & "' and 单据状态 = '已完成' "
        Else
            h.DataTable.loadFilter = "False"
        End If
        h.DataTable.load
    End With
End If