Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于父表数据自动统计问题


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

主题：[求助]关于父表数据自动统计问题
帅哥哟，离线，有人找我吗？
云淡风轻
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00 		[求助]关于父表数据自动统计问题  发帖心情 Post By：2017/7/25 14:25:00 [只看该作者]

例子：父表A有字段：学号，姓名，科目数，总分；
        子表B有字段：科目号，名称，分数，学号。
两表通过学号关联起来，比如小明学了6门课，那么子表就有6条记录，即6门课成绩，
然后要求是：能够将子表的分数之和自动统计到父表的“总分”字段中，子表的条目数统计到“科目数”，
而且是子表每新增一行，自动统计一次，代码如何设置呢？谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110554 积分：562660 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/25 15:54:00 [只看该作者]


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


加好友 发短信
等级：一尾狐 帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00 		  发帖心情 Post By：2017/7/26 9:52:00 [只看该作者]

1、以下代码写到文件库表事件的DataRowAdded中

e.DataTable.save()
Dim pr As DataRow = e.DataRow.GetParentRow("案卷库")
If pr IsNot Nothing Then
    pr("卷内份数") = e.DataTable.DataRows.Count
End If

2、以下代码写到文件库表事件的BeforeDeleteDataRow中

e.DataTable.save()
Dim pr As DataRow = e.DataRow.GetParentRow("案卷库")
If pr IsNot Nothing Then
    pr("卷内份数") = e.DataTable.DataRows.Count-1
    pr("总页数") = DataTables("文件库").Compute("Sum(总页数)","[案卷号] = '" & e.DataRow("案卷号") & "' and _Identify <> " & e.DataRow("_Identify"))
    pr("起止日期") = DataTables("文件库").Compute("min(成文日期)","[案卷号] = '" & e.DataRow("案卷号") & "' and _Identify <> " & e.DataRow("_Identify")) " - " DataTables("文件库").Compute("max(成文日期)","[案卷号] = '" & e.DataRow("案卷号") & "' and _Identify <> " & e.DataRow("_Identify"))
End If


3、以下代码写到文件库表事件的DataColChanged中

e.DataTable.save()
Dim pr As DataRow = e.DataRow.GetParentRow("案卷库")
If pr IsNot Nothing Then
    pr("总页数") = DataTables("文件库").Compute("Sum(总页数)","[案卷号] = '" & e.DataRow("案卷号") & "'")
    pr("起止日期") = DataTables("文件库").Compute("min(成文日期)","[案卷号] = '" & e.DataRow("案卷号") & "'") " - " DataTables("文件库").Compute("max(成文日期)","[案卷号] = '" & e.DataRow("案卷号") & "'")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
云淡风轻
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：409 积分：3022 威望：0 精华：0 注册：2012/1/19 10:11:00 		  发帖心情 Post By：2017/7/26 9:54:00 [只看该作者]

我自己整理了一下图片点击可在新窗口打开查看

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/26 10:07:00 [只看该作者]

回复3楼，如果代码还有问题，做个具体例子发上来测试。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询