[求助]如何引用子表的统计数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何引用子表的统计数据

共有4556人关注过本帖树形打印复制链接主题：[求助]如何引用子表的统计数据

724154605

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

加好友

发短信

等级：婴狐帖子：37 积分：460 威望：0 精华：0 注册：2013/1/27 0:46:00

[求助]如何引用子表的统计数据 发帖心情

Post By：2013/10/31 15:13:00 [只看该作者]

请教一下诸位大侠。我要算提成_买卖=提成金额的总和,代码该如何写啊
If e.DataCol.Name = "姓名" Then '
e.DataRow("提成_买卖") = DataTables("提成发放记录").Compute("Sum(提成金额)","[姓名] = '" & e.NewValue & "'")
End If
If MainTable.Name = "员工薪酬管理" Then
DataTables("员工薪酬管理").DataCols("姓名").RaiseDataColChanged()
End If
没有反应

此主题相关图片如下：101.jpg

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/31 15:19:00 [只看该作者]

你代码是写在哪里的呢? 代码是没有问题的.

文件发上来看看.

724154605

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

加好友

发短信

等级：婴狐帖子：37 积分：460 威望：0 精华：0 注册：2013/1/27 0:46:00

[求助]

Post By：2013/10/31 18:18:00 [只看该作者]

在线等啊

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/10/31 18:38:00 [只看该作者]

这种简单的计算，不用代码可以，通过姓名建立关联，求和列改为表达式列，表达式为：
Sum(Child.提成金额)

建议细看《使用指南》下《关联表》和《表达式》这两章。

要快速解决问题，最好做个简单例子发上来，输入几行数据，然后具体说明问题，在上班时间几分钟就搞定了。

有点甜

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

加好友

发短信

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

Post By：2013/10/31 19:16:00 [只看该作者]

你的代码，是切换表的时候，才会重新计算的。实在不行，请上传一个测试例子。

724154605

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

加好友

发短信

等级：婴狐帖子：37 积分：460 威望：0 精华：0 注册：2013/1/27 0:46:00

[求助]

Post By：2013/10/31 19:46:00 [只看该作者]

以前我用的是表达式，那个确实挺方便的。但是表达式的值是不能保存的，每次重新打开系统，都要算一遍，不如代码方便。

724154605

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

加好友

发短信

等级：婴狐帖子：37 积分：460 威望：0 精华：0 注册：2013/1/27 0:46:00

Post By：2013/10/31 19:46:00 [只看该作者]

好的。

724154605

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

加好友

发短信

等级：婴狐帖子：37 积分：460 威望：0 精华：0 注册：2013/1/27 0:46:00

Post By：2013/11/1 17:15:00 [只看该作者]

If e.DataCol.Name = "姓名" Then '
e.DataRow("提成") = DataTables("提成发放记录").Compute("Sum(提成金额)","[姓名] = '" & e.NewValue & "'")
End If
If MainTable.Name = "员工薪酬管理" Then
DataTables("员工薪酬管理").DataCols("姓名").RaiseDataColChanged()
End If