主题：[求助]单元格 多值字段的排序

选中后点击运行代码排序

For i As Integer = CurrentTable.TopPosition To CurrentTable.BottomPosition
    Dim r As Row = CurrentTable.Rows(i)
    Dim ary() As String = r("开奖号码").split(" ")
    Dim ary3(2) As String
    Dim num3 As String = ""
    For j As Integer = 0 To 2
        num3 &= ary(j) & " "
        ary3(j) = ary(j)
    Next
    array.Sort(ary3)
    Dim num3_sort As String = ""
    For j As Integer = 0 To 2
        num3_sort &= ary3(j) & " "
    Next
    r("前三位") = num3
    r("排序") = num3_sort
Next