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

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

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

hbkongxin

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

加好友

发短信

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

[求助]关联表的子表，同步表时特别慢 发帖心情

Post By：2021/5/13 13:22:00 [显示全部帖子]

主表就是下单的，子表就是生产的记录，刷新子表时特别慢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:华晨生产计划.zip

hbkongxin

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

加好友

发短信

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

Post By：2021/5/13 13:32:00 [显示全部帖子]

还有新版本的交叉统计，不能直接显示小计了

hbkongxin

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

加好友

发短信

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

Post By：2021/5/13 14:00:00 [显示全部帖子]

004226

hbkongxin

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

加好友

发短信

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

Post By：2021/5/13 15:11:00 [显示全部帖子]

请老师帮忙，我不知道该怎么设计代码，要关联到登记日期，客户，花号，色位，面料，下单米数，打印机台，都相同才能统计

hbkongxin

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

加好友

发短信

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

Post By：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

hbkongxin

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

加好友

发短信

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

Post By：2021/5/13 15:52:00 [显示全部帖子]

Select Case e.DataCol.name

Case "登记日期","客户","花号","色位","面料","米数","打印机台"

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 Select

hbkongxin

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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

End If

hbkongxin

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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