以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]试卷袋编号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27880)

--  作者:cqlpjks
--  发布时间:2013/1/12 23:08:00
--  [求助]试卷袋编号问题

考试试卷收来后,全县要将试卷袋编通号,一个考室一袋试卷。我想提前根据各单位的考室数统计出各单位试卷袋编号的起止号,请教试卷袋起号和试卷袋止号的统计代码如何写(完善试卷袋起号和试卷袋止号的统计代码)。谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:考号考室统计及试卷袋编号.rar


图片点击可在新窗口打开查看此主题相关图片如下:试卷袋编号.jpg
图片点击可在新窗口打开查看
规律:试卷袋起号:D2=1(即开始) D3=C2+E2 D4=C3+D3 D5=C4+D4 D6=C5+D5 D7=C6+D6 …

        试卷袋止号:E2=C2+D2-1 E3=C3+D3-1 E4=C4+D4-1 E5=C5+D5-1 E6=C6+D5-1 …

[此贴子已经被作者于2013-1-12 23:20:12编辑过]

--  作者:e-png
--  发布时间:2013/1/13 0:15:00
--  

DataTables("成绩库").StopRedraw
Dim Values() As String = {"考室"}
For Each Value As String In Values
    Dim dtb As New DataTableBuilder(value & "统计")
    dtb.AddDef("单位",Gettype(String),8)
    dtb.AddDef("参考人数",Gettype(Double))
    dtb.AddDef("考室数",Gettype(Double))
    dtb.AddDef("试卷袋起号",Gettype(Double))
    dtb.AddDef("试卷袋止号",Gettype(Double))
    dtb.AddDef("试卷袋编号",Gettype(String))
    dtb.Build()
    Tables("成绩库").Visible = True
    Dim f As New Filler
    f.SourceTable = DataTables("成绩库") \'指定数据来源
    f.SourceCols = "单位" \'指定数据来源列
    f.DataTable = DataTables(  value & "统计" )\'指定数据接收表
    f.DataCols = "单位" \'指定数据接收列
    f.Fill() \'填充数据
Next
For Each bm As DataTable In DataTables
    For Each dr As DataRow In DataTables(bm.name).DataRows
        If bm.name = "考室统计"
            dr("参考人数") = DataTables("成绩库").Compute("count(单位)", "[单位] = \'" & dr("单位") & "\'")
            dr("考室数") = DataTables("成绩库").Compute("Max(考室)", "[单位] = \'" & dr("单位") & "\'")
           
        End If
    Next
Next

For i As Integer = 0 To Tables("考室统计").count - 1
    Dim r As Row = Tables("考室统计").Rows(i)
    If i = 0
        r("试卷袋起号") = 1
    Else
        r("试卷袋起号") = Tables("考室统计")(i-1,"考室数") + Tables("考室统计")(i-1,"试卷袋起号")
    End If
    r("试卷袋止号") = r("考室数") + r("试卷袋起号") -1
    r("试卷袋编号") = r("试卷袋起号") & "-" & r("试卷袋止号")
Next
MainTable =  Tables("考室统计")
DataTables("成绩库").ResumeRedraw
DataTables("成绩库").ResumeRedraw

 


--  作者:catyin1989
--  发布时间:2013/1/13 0:17:00
--  

[此贴子已经被作者于2013-1-13 0:17:58编辑过]

--  作者:cqlpjks
--  发布时间:2013/1/14 0:48:00
--  
谢谢!搞定。