以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据统计问题,请高手帮忙解决!谢谢!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94600)

--  作者:zgjmost
--  发布时间:2016/12/27 17:45:00
--  [求助]数据统计问题,请高手帮忙解决!谢谢!
在下面这个程序中,我想把  表 教材管理费当中同一位学员(以学号区分)的教材定价求和,填到  表招生人  教材费合计中

例如:1642001251838这位学员为例,要将学员列都是她的教材定价列都求和,就是下面这些数字

28
13.8
33
36
24
27.9
37
32
21

填写到招生人,学号是他的列教材费合计中去。
其他学员类似!
麻烦指导详细!先谢谢!

程序地址:http://url.cn/42yFOkN


--  作者:有点蓝
--  发布时间:2016/12/27 17:51:00
--  
参考:http://www.foxtable.com/webhelp/scr/1454.htm
--  作者:zgjmost
--  发布时间:2016/12/27 18:40:00
--  
有点蓝老师:我按上面说的代码改了,好象不能用!请你指导一下!
地址是: http://url.cn/42yLuWt


--  作者:wyz20130512
--  发布时间:2016/12/27 19:20:00
--  
\'获取指定学号的教材定价之和
Dim djh As Double
With DataTables("表A")
    djh = .Compute("Sum(教材定价)","学号 = \'1642001251838\'")
End With

\'在表B中查找此学号的对应行
With DataTables("表B")
    Dim dr As DataRow = .Find("学号 = \'1642001251838\'")
    If dr IsNot Nothing Then
        dr("教材费合计") = djh
    End If
End With

--  作者:有点蓝
--  发布时间:2016/12/27 20:36:00
--  
代码没有问题。你要录入学号才会统计的。

如果想在招生人表统计,代码要放到招生人表事件中,然后重置招生人表学号列

图片点击可在新窗口打开查看