参考代码
Dim ls1 As new List(Of String)
Dim dt As Table = Tables("表A")
For Each dc As Col In dt.Cols
If dc.Caption.StartsWith("p") Then
ls1.add(dt.name)
End If
Next
Dim ary1(ls1.count-1) As Double
Dim ary2 = ls1.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 = ary2.length-1 To 0 Step -1
msgbox(ary2(i))
Next