共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]学生成绩表最后1行的数据统计到成绩分布表
1楼
185723664 发表于：2024/8/8 16:08:00
2楼
有点蓝 发表于：2024/8/8 16:26:003楼
185723664 发表于：2024/8/8 16:42:00蓝总，帮助 手工编码进行统计 案例是科目列所有值统计，就是不懂最后1行的统计，求助
4楼
有点蓝 发表于：2024/8/8 16:53:00最后一行？！！第44行【4班 张李华】这一行？就一行数据有啥好统计的
[此贴子已经被作者于2024/8/8 16:53:02编辑过]
5楼
185723664 发表于：2024/8/8 16:59:00蓝总，想要的效果是下面代码，但不会怎么增加，只取当前表最后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编辑过]
6楼
有点蓝 发表于：2024/8/8 17:23:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学生成绩表最后1行的数据统计到成绩分布表.zip |
共6 条记录, 每页显示 10 条, 页签:
[1]