- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关联表的子表，同步表时特别慢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165309)
-- 发布时间：2021/5/13 13:22:00
-- [求助]关联表的子表，同步表时特别慢
主表就是下单的，子表就是生产的记录，刷新子表时特别慢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:华晨生产计划.zip |
-- 发布时间：2021/5/13 13:32:00
--
还有新版本的交叉统计，不能直接显示小计了
-- 发布时间：2021/5/13 13:59:00
--
开发者密码给一下
-- 发布时间：2021/5/13 14:00:00
--
004226
-- 发布时间：2021/5/13 14:30:00
--
如果是指【打印明细】表加载慢 ，是因为【华晨生产计划】的表达式计算造成的，【打印明细】表加载后会导致【华晨生产计划】7000多行数据的表达式列重新计算。加载的数据越多肯定就越慢。建议改为数据列，然后在表事件里实时计算：http://www.foxtable.com/webhelp/topics/1472.htm
-- 发布时间：2021/5/13 15:11:00
--
请老师帮忙，我不知道该怎么设计代码，要关联到 登记日期，客户，花号，色位，面料，下单米数，打印机台 ，都相同才能统计
-- 发布时间：2021/5/13 15:24:00
--
有多少个列就加多少个添加咯
首先将统计表的DataColChanged事件代码设置为：
If e.DataCol.Name = "产品" orelse e.DataCol.Name = "列2" orelse e.DataCol.Name = "列3" Then
Dim Filter As String = "[产品] = \'" & e.DataRow("产品") & "\' and [列2] = \'" & e.DataRow("列2") & "\' and [列3] = \'" & e.DataRow("列3") & "\'"
e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)", Filter)
e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter)
End If
同样在统计表设置好上述代码后，请重置一次该表的产品列。
订单表的金额列是一个表达式列，其表达式为：[数量] * [单价] * (1 - [折扣])
我们知道表达式列有一个特性，就是其值发生变化后，并不会触发DataColChanged事件，此特性导致我们无法简单地用前面介绍的方法来自动更新统计表中的销售金额。
所以有必要考虑用另一重算方法，将订单表的DataColChanged事件代码设置为：
Select Case e.DataCol.Name
Case "数量","单价","折扣"
Dim pr As DataRow
pr = DataTables("统计").Find("产品 = \'" & e.DataRow("产品") & "\' and [列2] = \'" & e.DataRow("列2") & "\' and [列3] = \'" & e.DataRow("列3") & "\'")
If pr IsNot Nothing Then
DataTables("统计").DataCols("产品").RaiseDataColChanged(pr)
End If
End Select
-- 发布时间：2021/5/13 15:30:00
--
If e.DataCol.Name = "总米数" Then
Dim pr As DataRow
pr = DataTables("华晨生产计划").Find("(登记日期 = \'" & e.DataRow("登记日期") & "\',客户 = \'" & e.DataRow("客户") & "\' ,花号 = \'" & e.DataRow("花号") & "\')")
If pr IsNot Nothing Then
pr("总米数")= pr("总米数") + e.NewValue - e.OldValue
End If
End If
-- 发布时间：2021/5/13 15:44:00
--
去掉条件里的逗号。
-- 发布时间：2021/5/13 15:52:00
--