Foxtable(狐表)用户栏目专家坐堂 → [求助] 完善统计


  共有11248人关注过本帖树形打印复制链接

主题:[求助] 完善统计

帅哥哟,离线,有人找我吗?
小小草
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:188 威望:0 精华:0 注册:2009/7/30 19:24:00
[求助] 完善统计  发帖心情 Post By:2011/9/18 1:12:00 [只看该作者]

求助:完成了部分的统计,但还有些需要补充,请帮帮忙。。。

 

谢谢!!!

 

其中还有一些问题需要解决:

 

1、基本信息表中 如果列【变动原因】有“毕业”或者“转学”,应移除基本信息表转移到毕业转学表中。

 

2.统计表中,统计了年级和年龄列,怎么来统计班级、班级数、以及年龄段的统计。。。

 

 

再次感谢!!!谢谢。


 回到顶部
帅哥哟,离线,有人找我吗?
小小草
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:188 威望:0 精华:0 注册:2009/7/30 19:24:00
  发帖心情 Post By:2011/9/18 1:24:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:学籍.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/18 10:01:00 [只看该作者]

第一个问题,学生基本信息表的DataColChanged加上一段代码:

 

If e.DataCol.Name = "变动原因" Then
    If e.DataRow("变动原因") = "毕业" OrElse e.DataRow("变动原因") = "转学" Then
        Dim dr As DataRow = DataTables("毕业转学").Addnew
        For Each dc As DataCol In DataTables("毕业转学").DataCols
            dr(dc.name) = e.DataRow(dc.name)
        Next
        e.DataRow.Delete
    End If
End If

 

第二个问题,统计班数:

 

e.DataRow("班级数统计_班数") = DataTables("学生基本信息").GetUniqueValues("[年级]= '" & e.DataRow("年级统计_年级") & "'", "班级").Count

 

其他统计用类似的方法。

 


 回到顶部