主表调用多个子表的汇总数据无法统计文集 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 主表调用多个子表的汇总数据无法统计文集

共有2474人关注过本帖树形打印复制链接主题：主表调用多个子表的汇总数据无法统计文集

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

主表调用多个子表的汇总数据无法统计文集 发帖心情

Post By：2017/4/1 17:00:00 [只看该作者]

此主题相关图片如下：1.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:销售合同.table

此主题相关图片如下：2.png

问题：

1、总表需要汇总单个表格的汇总销售额，是否有办法直接统计到汇总额里边？我的现在直接建立关联表统计过来，不在同一列。

2、南京1和南京2需要合力完成目标，单独统计销售总额，目标值和结存需要合并，是否能实现？

3、南京，苏州，无锡三个地方的合同编号不允许重复，如果重复，进行提示，南京苏州无锡都是使用窗口模式进行录入，如何保障南京窗口录入合同编号不与无锡苏州重复？南京合同编号列设置了重复不允许，但是窗口仍然可以输入重复项，不知问题在哪？

4、登录日志：

1、第一个方式：原表格使用的是互联网+SQL sever，日志是否可以保存TXT文件到服务器，表格里的记录保留3个月的，滚动删除是否可以？

2、第二个方式;表格直接保留1年记录，滚动删除是否能实现？

5、管理员是否有增加用户名和表的功能？如一个用户对应一个表，当添加一个用户时系统直接添加对应的“常州”表？

望高手指导一下

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/4/1 17:00:00 [只看该作者]

最新的附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:销售合同.table

楼上的表取消，使用本楼的表

[此贴子已经被作者于2017/4/1 17:02:28编辑过]

有点蓝

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

加好友

发短信

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

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

1、统计参考：http://www.foxtable.com/webhelp/scr/1454.htm

2、不重复判断：http://www.foxtable.com/webhelp/scr/2481.htm

3、设置一个计划任务，把超出时间的数据输出即可：http://www.foxtable.com/webhelp/scr/0657.htm

4、开发者和管理员都可以管理用户，任何人登录后都可以创建表格

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/4/1 19:38:00 [只看该作者]

谢谢，我试试这几个方法，

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/4/1 20:41:00 [只看该作者]

项目事件MainTableChanged中加入下面的代码：

If MainTable.Name = "总表" Then

DataTables("总表").DataCols("公司名称").RaiseDataColChanged()

End If

DataColChanged事件中设置如下代码：

If e.DataCol.Name = "公司名称" Then '发生变化的是产品列.

'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列

e.DataRow("销售汇总") = DataTables("南京").Compute("Sum(销售额)","[公司名称] = '" & e.NewValue & "'")

e.DataRow("销售汇总") = DataTables("苏州").Compute("Sum(销售额)","[公司名称] = '" & e.NewValue & "'")

e.DataRow("销售汇总") = DataTables("无锡").Compute("Sum(销售额)","[公司名称] = '" & e.NewValue & "'")

End If

销售汇总中没有数据过来，不知道哪有问题？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/2 11:39:00 [只看该作者]

If e.DataCol.Name = "公司名称" Then '发生变化的是产品列.
    If e.NewValue > "" Then
        For Each dt As DataTable In DataTables
            If e.NewValue.contains(dt.name) Then
                e.DataRow("销售汇总") = dt.Compute("Sum(销售额)","[公司名称] = '" & e.NewValue & "'")
            End If
        Next
    End If
End If