以文本方式查看主题

-  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)

--  作者:185723664
--  发布时间:2024/8/8 16:08:00
--  [求助]学生成绩表最后1行的数据统计到成绩分布表
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:学生成绩表最后1行的数据统计到成绩分布表.foxdb


求助:学生成绩表最后1行的数据统计到成绩分布表
不想要科目所有列的值都统计到成绩分布表

--  作者:有点蓝
--  发布时间:2024/8/8 16:26:00
--  
参考:http://www.foxtable.com/webhelp/topics/2964.htm


--  作者:185723664
--  发布时间: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编辑过]

--  作者:185723664
--  发布时间: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