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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]子表如何引用父表数据，并在父表里进行计算，再赋值回子表？

共有6321人关注过本帖树形打印复制链接主题：[求助]子表如何引用父表数据，并在父表里进行计算，再赋值回子表？

rpg2813

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

加好友

发短信

等级：童狐帖子：277 积分：2437 威望：0 精华：0 注册：2011/8/28 12:23:00

[求助]子表如何引用父表数据，并在父表里进行计算，再赋值回子表？ 发帖心情

Post By：2022/9/5 3:14:00 [显示全部帖子]

成绩表的语文标准分为：500 + 100 * ([语文] - Avg([语文]))/StDev([语文])

想实现的效果是（以张三为例）

87+12=99之后，在成绩表里进行标准分计算，并把得到的标准分赋值到“错漏明细”的语文标准分里

其实就是让学生知道，如果空的题做了，错的题做了，相应会有什么成绩

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目20141032.table

此主题相关图片如下：2022-09-05.png

rpg2813

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

加好友

发短信

等级：童狐帖子：277 积分：2437 威望：0 精华：0 注册：2011/8/28 12:23:00

Post By：2022/9/5 12:14:00 [显示全部帖子]

父表的标准分是：500 + 100 * ([语文] - Avg([语文]))/StDev([语文])算出来的

就是: 500 + 100 * ([87]- Avg([87，67……102，86]))/StDev([[87，67……102，86]])=521.06

——

而子表的标准分希望的是（以语文为例）

500 + 100 * ([87+12]- Avg([（87+12），67……102，86]))/StDev([[（87+12），67……102，86]])=596.48

——

目的就是告诉张三，语文那12分不丢的话，你可以拿到596.48分

rpg2813

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

加好友

发短信

等级：童狐帖子：277 积分：2437 威望：0 精华：0 注册：2011/8/28 12:23:00

Post By：2022/9/5 14:08:00 [显示全部帖子]

有意义的，标准分本来就是衡量一个成绩在一个范围内的分值，现在有的省份还在用做高考成绩统计

那12分是没有做，空着丢的，我算出来后，还得让对方明白

（596.48-521.06）/12=6.285，多拿1分可以多6.285标准分

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=12479&skin=0

这个帖子太老，然后可能他的算法更精确，我暂时用不到这么精确的算法（我的算法公式是从excel里改过来的）

[此贴子已经被作者于2022/9/5 14:11:28编辑过]

rpg2813

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

加好友

发短信

等级：童狐帖子：277 积分：2437 威望：0 精华：0 注册：2011/8/28 12:23:00

Post By：2022/9/5 22:25:00 [显示全部帖子]

版主你好，我用了取巧的办法做是做出来了，但是用代码写3楼的的公式应该怎么写才对？就是以下红色部分

子表的datacolchanged

Select Case e.DataCol.Name
Case "语文" , "数学", "英语"
Dim dr As DataRow
Dim dt As DataTable = DataTables("成绩")
dr = dt.Find("学号 = '" & e.DataRow("学号") & "'")
If dr IsNot Nothing Then
Dim oldyw As Double = dr("语文")
Dim newyw As Double = dr("语文") + e.DataRow("语文")
dr("语文") = newyw
e.DataRow("标准分_语文") = dr("标准分_语文")
dr("语文") = oldyw
End If
End Select