主题：转置后的临时表怎么用

我用的就是甜老师的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩通知单.zip

我的意思就是在生成这个文件之前，能把他多页拆分成单页，以学号命名，并存放到以学号命名的文件夹中

蓝老师！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩管理.zip

此主题相关图片如下：qq图片20181116221926.png


此主题相关图片如下：qq图片20181116222133.png

老师：对上一段代码，加下面的进度条，对么

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
Dim dt = DataTables("入学注册")
Dim t = Tables("入学注册")
p.Minimum = 0
p.Maximum = dt.DataRows.count+t.Rows.count
p.Value = 0
For i As Integer = 0 To dt.datarows.count -1
 p.value += 1
Next
For i As Integer = 0 To t.rows.count -1
Dim r As Row = t.rows(i)
p.value += 1
Next
 '-------------------------------
For i As Integer = 0 To Tables("入学注册").Rows.Count - 1
    Tables("入学注册").Position = i
    Dim Book As New XLS.Book(ProjectPath & "Attachments\考试成绩通知单.xls")
    Dim fl As String =  "d:\成长档案\" & Tables("入学注册").Current("学籍辅号") & "\考试成绩通知单.pdf"
    Book.Build() '生成细节区
    Book.SaveToPDF(fl) '保存为PDF文件
Next

在进度条上方显示“共有xxxxx份成绩单需要发放，已发放xxx份”

甜老师，只有您能完成了，帮帮我吧

 

(1)行将学生按总分数从高到低，由上至下依次递减排列。列将问题按答对人数的多少从左住右依次递减排列。
(2)对于得分相同的行，首先求出每一学生各答错的问题的答对次数之和。和较小的行排在上边。例如：
S1答错的问题的答对次数之和=8+9+6+7+4=34?
S6答错的问题的答对次数之和=11+7+10+4+8=40???????
S13答错的问题的答对次数之和=8+6+10+8+5=37?
S14答错的问题的答对次数之和=6+7+4+8+5=30

因此，应该自上而下排成S14,S1,S13,S6的顺序?对于答对次数相同的列，首先求出每一个题答错的学生的得分数之和，和较小的列排在左边。例如:
P9答错的学生的得分数之和=5+2+4+1+5+5+4=26?
P1答错的学生的得分数之和=5+6+3+8+6+1+5=31

因此，应该从左至右排成P9,P1的顺序
(3)作S线。对每一个学生行画竖线段，使竖线段左边的问题数目等于相应学生的得分。然后在各行间画横线，使各个竖线段连接起来，便形成一条梯状的曲线，称为S线。?
(4)作P线。对每一个问题列画横线段，使横线段土方的学生数等于相应问题的答对次数。然后在各列间画竖线，使各横线段连接起来，从而形成另一条梯状曲线，称为P线。?对学生－问题得分矩阵经过这样处理后，形成了有S线和P线的有序表，这样的表被称为S-P表

 

此主题相关图片如下：图片1.png

这种排序不知怎么搞定，实例发上

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

搞不定啊，老甜。

我想先做一张这份表，结果出不来，你帮我看看

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("班级")
g.Totals.AddExp("学生总数","1")
g.Totals.AddExp("其中_答对","iif(p1='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p1='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p2='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p2='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p3='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p3='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p4='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p4='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p5='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p5='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p6='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p6='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p7='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p7='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p8='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p8='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p9='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p9='0',1,0)")
g.Totals.AddExp("其中_答对","iif(p10='1',1,0)")
g.Totals.AddExp("其中_答错","iif(p10='0',1,0)")
'
g.Filter = "班级 is not null "
g.Build
Tables("统计表1").AutoSizeCols
MainTable = Tables("统计表1")

我先做第一步，找出个人答错题的答对的和，放在pc中

试做了一下，还是有问题，你看看

Dim t As Table = Tables("表A")
Dim dr As Row = Tables("表A").Current
Dim nms() As String = {"p1","p2","p3","p4","p5","p6","p7","p9","p8","p10","pc"}
Dim str As String

For nm As Integer = 0 To t.cols.count-1
   
        If dr.IsNull(nm) = 0 Then
            
str = "sum(" & str(dr("pc")) & ")"

    End If
Next

边连边学