主题：[求助]请帮助写一下代码

如图：

此主题相关图片如下：11.bmp

 

经过代码统计后得上表，那马，如何再按照统计的结果，把"疵点_*"按照统计的数据按大小排列，前面的分组不变。代码如何写

如下图：

 

此主题相关图片如下：12.bmp

 

注：“疵点_*"列数不固定，每天或每月统计均不一样。统计时应该先判断"疵点_"有多少列。

 

上传数据表

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

点击浏览该文件:11.rar

顶一下

Dim t As Table = Tables("test")
Dim ls As new List(Of String)
For Each c As Col In t.cols
    If c.Caption Like "疵点*" Then
        ls.add(Format(t.rows(0)(c.name),"000000.00|") & c.name)
    End If
Next
Dim ary() As String = ls.ToArray
array.sort(ary)
For i As Integer = 0 To ary.length - 1
    t.cols(ary(i).split("|")(1)).Move(6)
Next

谢谢