- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]学生成绩表最后1行的数据统计到成绩分布表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192997)
-- 发布时间：2024/8/8 16:08:00
-- [求助]学生成绩表最后1行的数据统计到成绩分布表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学生成绩表最后1行的数据统计到成绩分布表.foxdb |
求助：学生成绩表最后1行的数据统计到成绩分布表
不想要科目所有列的值都统计到成绩分布表
-- 发布时间：2024/8/8 16:26:00
--
参考：http://www.foxtable.com/webhelp/topics/2964.htm
-- 发布时间：2024/8/8 16:42:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
蓝总，帮助 手工编码进行统计 案例是科目列所有值统计，就是不懂最后1行的统计，求助
-- 发布时间：2024/8/8 16:53:00
--
最后一行？！！第44行【4班 张李华】这一行？就一行数据有啥好统计的
[此贴子已经被作者于2024/8/8 16:53:02编辑过]
-- 发布时间：2024/8/8 16:59:00
-- 回复：（有点蓝）最后一行？！！第44行【4班 张李华】...
蓝总，想要的效果是下面代码，但不会怎么增加，只取当前表最后1行的值，统计到表B
求助，下面代码，增加当前表最后1行修改后，当前表最后1行的数据更新统计到表B
If e.DataCol.Name
= "第一列" Then \'如果内容发生变动的是第一列列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是第一列列的内容为空
e.DataRow("第二列") = Nothing \'那么清空此行第二列列的内容
Else
Dim dr As DataRow
\'否则在表B表查找同名的表B行,将找到的行赋值给变量dr
dr = DataTables("表B").Find("[第一列]
= \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的表B行,也就是dr不是Nothing
e.DataRow("第二列") =
dr("第二列")
End If
End If
End If
[此贴子已经被作者于2024/8/8 17:09:33编辑过]
-- 发布时间：2024/8/8 17:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学生成绩表最后1行的数据统计到成绩分布表.zip |