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
加好友 
发短信
Post By：2015/9/21 17:45:00 [显示全部帖子]
