Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表统计后台数据


  共有5442人关注过本帖树形打印复制链接

主题：跨表统计后台数据
帅哥哟，离线，有人找我吗？
15666282205
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4332 威望：0 精华：0 注册：2019/1/13 10:12:00 		跨表统计后台数据  发帖心情 Post By：2021/3/15 10:36:00 [只看该作者]

老师，我编写了跨表统计代码，问题：如果显示统计数据的表已经加载了某些行，则已加载的行统计正常，但是没加载的行就不执行统计，我想实现全部后台没加载的行也能统计。我是把被统计的表的数据用代码重置一下触发统计的，请您指导。
以下代码在被统计表的“datacolchangend”事件中
'-----------------------------自动统计数据------------------------
Select Case e.DataCol.Name
    Case "价税合计","合同序号"
        Dim pr As DataRow
        pr = DataTables("合同信息").Find("序号 = '" & e.DataRow("合同序号") & "'")
        If pr IsNot Nothing Then
            DataTables("合同信息").DataCols("序号").RaiseDataColChanged(pr)
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 10:41:00 [只看该作者]

"合同信息"表的数据肯定要加载才能统计。"合同信息"要统计的其它表数据如果没有加载，可以改后台统计：http://www.foxtable.com/webhelp/topics/2897.htm

 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4332 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2021/3/15 11:15:00 [只看该作者]

老师，我想实现后台跨表统计，如被统计的表数据有变动，但是显示统计数据的“合同信息”表没加载，如何在后台就相应的改动统计结果？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 11:24:00 [只看该作者]

那要自己使用sql统计处理：http://www.foxtable.com/webhelp/topics/0696.htm

 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4332 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2021/3/15 12:12:00 [只看该作者]

老师，看了，太难，没大用SQL,麻烦您在我的代码基础上修改一下行吗？被统计的表是“现金日记账”的“收款“列，谢谢！
[此贴子已经被作者于2021/3/15 12:12:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 13:34:00 [只看该作者]

"合同信息"表datacolchaged事件代码发上来

 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4332 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2021/3/15 14:41:00 [只看该作者]

以下代码在“现金日记账”表的“datacolchangend”事件中，如果“价税合计”，改变，把合计数在“合同信息”表里相应改变。"合同信息"表datacolchaged事件没有代码
'-----------------------------自动统计数据------------------------
Select Case e.DataCol.Name
    Case "价税合计","合同序号"
        Dim pr As DataRow
        pr = DataTables("合同信息").Find("序号 = '" & e.DataRow("合同序号") & "'")
        If pr IsNot Nothing Then
            DataTables("合同信息").DataCols("序号").RaiseDataColChanged(pr)
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 14:44:00 [只看该作者]

"合同信息"表datacolchaged事件没有代码，那么上面的代码就没有任何用处。RaiseDataColChanged就是用来触发"合同信息"表datacolchaged事件的

 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4332 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2021/3/15 14:54:00 [只看该作者]

老师，有代码，还取了两个表的数。问题是被取数的表如果不加载，就没法取数，设置成后台取数就可以了。
'-----------------------自动统计-------------------------
If e.DataCol.Name = "序号" Then
    Dim Filter As String = "[合同序号] = '" & e.NewValue & "'"
    e.DataRow("收入") = DataTables("现金日记账").Compute("Sum(收入)", Filter)
    e.DataRow("预计成本利润_拨款") = DataTables("现金日记账").Compute("Sum(支出)", Filter)
    e.DataRow("已执行金额") = DataTables("莱矿总包合同").Compute("Sum(价税合计)", Filter)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 15:02:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2897.htm

DataTables("现金日记账").SQLCompute("Sum(收入)", Filter)
 回到顶部
总数 35 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询