主题：怎么把某行里的abc列里的数值 按照从大到小，依次写入到 D E F 列? 已经上传例子。

'以下代码请放到按钮中测试

Dim Dt As DataTable = DataTables("表A")
Dim SCols As String = "数1,数2,数3"
Dim RCols As String = "箱高,箱长,箱宽"
Dim lst As List(of Integer)
For Each dr As DataRow In Dt.DataRows
    lst = new List(of Integer)
    For j As Integer = 0 To SCols.Split(",").Length - 1
        lst.Add(dr(SCols.Split(",")(j)))
    Next
    lst.Sort()
    For i As Integer = lst.Count - 1 To 0 Step - 1
        dr(RCols.Split(",")(lst.Count - i - 1)) = lst(i)
    Next
Next