以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 完善统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12853)

--  作者:小小草
--  发布时间:2011/9/18 1:12:00
--  [求助] 完善统计

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

 

谢谢!!!

 

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

 

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

 

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

 

 

再次感谢!!!谢谢。


--  作者:小小草
--  发布时间:2011/9/18 1:24:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:学籍.table


--  作者:狐狸爸爸
--  发布时间: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

 

其他统计用类似的方法。