[求助]关联表的子表，同步表时特别慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关联表的子表，同步表时特别慢

共有2923人关注过本帖树形打印复制链接主题：[求助]关联表的子表，同步表时特别慢

有点蓝

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

加好友

发短信

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

Post By：2021/5/13 15:57:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1284.htm

Dim Filter As String = "[登记日期] = #" & e.DataRow("登记日期") & "# and [客户] = '" & e.DataRow("客户") & "' and [花号] = '" & e.DataRow("花号") & "' and [色位] = '" & e.DataRow("色位") & "' and [面料] = '" & e.DataRow("面料") & "' and [下单米数] = " & e.DataRow("米数") & " and [打印机台] = '" & e.DataRow("打印机台") & "'"

hbkongxin

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

加好友

发短信

等级：幼狐帖子：95 积分：834 威望：0 精华：0 注册：2020/5/28 10:53:00

Post By：2021/5/13 16:04:00 [只看该作者]

If e.DataCol.Name = "登记日期" OrElse e.DataCol.Name = "客户" OrElse e.DataCol.Name = "花号" OrElse e.DataCol.Name = "色位" OrElse e.DataCol.Name = "面料" OrElse e.DataCol.Name = "米数" OrElse e.DataCol.Name = "打印机台" Then

Dim Filter As String = "[登记日期] = '" & e.DataRow("登记日期") & "' and [客户] = '" & e.DataRow("客户") & "' and [花号] = '" & e.DataRow("花号") & "' and [色位] = '" & e.DataRow("色位") & "' and [面料] = '" & e.DataRow("面料") & "' and [下单米数] = '" & e.DataRow("米数") & "' and [打印机台] = '" & e.DataRow("打印机台") & "'"

e.DataRow("打印总数") = DataTables("打印明细").Compute("Sum(打印米数)", Filter)

e.DataRow("墨水总量") = DataTables("打印明细").Compute("Sum(墨水用量)", Filter)

End If

有点蓝

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

加好友

发短信

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

Post By：2021/5/13 16:12:00 [只看该作者]

看11楼，测试有什么问题？

hbkongxin

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

加好友

发短信

等级：幼狐帖子：95 积分：834 威望：0 精华：0 注册：2020/5/28 10:53:00

Post By：2021/5/13 16:16:00 [只看该作者]

Dim Filter As String = "[登记日期] = #" & e.DataRow("登记日期") & "# and [客户] = '" & e.DataRow("客户") & "' and [花号] = '" & e.DataRow("花号") & "' and [色位] = '" & e.DataRow("色位") & "' and [面料] = '" & e.DataRow("面料") & "' and [下单米数] = '" & e.DataRow("米数") & "' and [打印机台] = '" & e.DataRow("打印机台") & "'"

e.DataRow("打印总数") = DataTables("打印明细").Compute("Sum(打印米数)", Filter)

e.DataRow("墨水总量") = DataTables("打印明细").Compute("Sum(墨水用量)", Filter)

End If

这个测试了没有反应，也不报错，列打印总数和墨水总量没有统计出来