感谢狐表让我出色完成了任务，还有一个问题希望得到帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 感谢狐表让我出色完成了任务，还有一个问题希望得到帮助

共有1862人关注过本帖树形打印复制链接主题：感谢狐表让我出色完成了任务，还有一个问题希望得到帮助

有点甜

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

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

Post By：2018/3/26 10:44:00 [显示全部帖子]

Tables("数据明细").Filter=filter
Dim lbl As WinForm.Label = e.form.controls("label88")
lbl.text = "总数:" & Tables("数据明细").compute("sum(订购数量)")

有点甜

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

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

Post By：2018/3/29 12:18:00 [显示全部帖子]

Dim lbl As WinForm.Label = e.form.controls("金额")

lbl.text = "金额:" & Tables("数据明细").compute("sum(订购金额)")

lbl = e.form.controls("单数")

lbl.text = "单数:" & Tables("数据明细").compute("Count(客户姓名)")

主题：感谢狐表让我出色完成了任务，还有一个问题希望得到帮助