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

 

甜老师，不会举一反三啊，如果是找出P线上方0的学生得分，与P线下方1的学生得分呢

 

自己做，看不懂代码从头开始学

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=128285

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

耐点心甜老师，也不能光看不练啊，都是在老师指导下慢慢成长的。

帮我看看下面的问题

Dim ls As new List(Of String)
Dim dt As Table = Tables("sp表")
For Each dc As Col In dt.Cols
    If dc.Caption.StartsWith("p") Then
        ls.add(dc.name)
    End If
Next
Dim ary1(ls.count-1) As Double
Dim ary2 = ls.ToArray
For i As Integer = 0 To ary2.length-1
    ary1(i) = dt.Compute("sum(" & ary2(i) & ")")
Next
array.sort(ary1, ary2)
For i As Integer = 0 To ary2.length-1
    Tables("sp表").Cols(ary2(i)).Move(1)
Next
Tables("sp表").sort = "得分 desc"
    Dim sum1 = 0
    Dim sum2 = 0
    For Each cr As Col In CurrentTable.Cols
    For j As Integer = 0 To ary2.length-1
        If ary2.length-j < cr("ary1") Then
            If cr(ary2(j)) = 0 Then
                sum1 += ary1(j)
            End If
        Else
            If cr(ary2(j)) = 1 Then
                sum2 += ary1(j)
            End If
                    End If
msgbox(sum1)
  
   Next
Next

看懂之前的代码，循环ary2，然后循环每一行

 

Dim ls As new List(Of String)
Dim dt As Table = Tables("sp表")
For Each dc As Col In dt.Cols
    If dc.Caption.StartsWith("p") Then
        ls.add(dc.name)
    End If
Next
Dim ary1(ls.count-1) As Double
Dim ary2 = ls.ToArray
For i As Integer = 0 To ary2.length-1
    ary1(i) = dt.Compute("sum(" & ary2(i) & ")")
Next
array.sort(ary1, ary2)
For i As Integer = 0 To ary2.length-1
    Tables("sp表").Cols(ary2(i)).Move(1)
Next
Tables("sp表").sort = "得分 desc"
Dim df As Double() = ary1
Dim rs As Integer = Tables("sp表").count
For i As Integer = 0 To rs-1
    Dim sum1 = 0
    Dim sum2 = 0
    Dim r As Row = Tables("sp表").Rows(i)
    For j As Integer = 0 To ary2.length-1
        If ary2.length-j > r("得分") Then
            If r(ary2(j)) = 1 Then
                sum2 += ary1(j)
            End If
        Else
            If r(ary2(j)) = 0 Then
                sum1 += ary1(j)
            End If
        End If
    Next
    output.show(sum1 & " " & sum2)
Next

甜老师，我没说清楚，上面你做的是s线，我是让你看看我做的

P线上方0的学生得分，与P线下方1的学生得分

错在什么地方

 

Dim ls As new List(Of String)
Dim dt As Table = Tables("sp表")
For Each dc As Col In dt.Cols
    If dc.Caption.StartsWith("p") Then
        ls.add(dc.name)
    End If

Next
Dim ary1(ls.count-1) As Double
Dim ary2 = ls.ToArray
For i As Integer = 0 To ary2.length-1
    ary1(i) = dt.Compute("sum(" & ary2(i) & ")")
Next
array.sort(ary1, ary2)
For i As Integer = 0 To ary2.length-1
    Tables("sp表").Cols(ary2(i)).Move(1)
Next
Tables("sp表").sort = "得分 desc"
    Dim sum1 = 0
    Dim sum2 = 0
    For Each cr As Col In CurrentTable.Cols   ‘遍历当前列是不是有问题？
    For j As Integer = 0 To ary2.length-1  ‘有没有问题？
        If ary2.length-j < cr("ary1") Then  ‘p线上方0的学生得分和
            If cr(ary2(j)) = 0 Then
                sum1 += ary1(j)
            End If
        Else
            If cr(ary2(j)) = 1 Then  ‘p线下方1的学生得分和
                sum2 += ary1(j)
            End If
                    End If

Next

output.show(sum1 & " " & sum2)

      Next

Dim ls As new List(Of String)
Dim dt As Table = Tables("sp表")
For Each dc As Col In dt.Cols
    If dc.Caption.StartsWith("p") Then
        ls.add(dc.name)
    End If
   
Next
Dim ary1(ls.count-1) As Double
Dim ary2 = ls.ToArray
For i As Integer = 0 To ary2.length-1
    ary1(i) = dt.Compute("sum(" & ary2(i) & ")")
Next
array.sort(ary1, ary2)
For i As Integer = 0 To ary2.length-1
    Tables("sp表").Cols(ary2(i)).Move(1)
Next
Tables("sp表").sort = "得分 desc"

Dim rs As Integer = Tables("sp表").count
For j As Integer = 0 To ary2.length-1  '有没有问题?
    Dim sum1 = 0
    Dim sum2 = 0
    For i As Integer = 0 To rs-1
        If ary1(j) > i Then  'p线上方0的学生得分和
            If Tables("sp表").Rows(i)(ary2(j)) = 0 Then
                sum1 += Tables("sp表").Rows(i)("得分")
            End If
        Else
            If Tables("sp表").Rows(i)(ary2(j)) = 1 Then
                sum2 += Tables("sp表").Rows(i)("得分")
            End If
        End If
       
    Next
   
    output.show(sum1 & " " & sum2)   
Next

您好，做的东西和我的需要很像，能把做好的东西传给我看看么

有点甜老师再帮我，我看了您的，也都是他帮您解决的，我的微信sas1525

我想快点得到您的帮助

 

类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126430&skin=0

 

sp线有时候在其他统计功能中的表里面不显示，怎么清除