ArrayList sort 排序


ArrayList sort 排序 直接排序容易出错

未能比较数组中的两个元素

   '数据集排序,从小到大
    'DoubleCollectionSort
    ''' <summary>
    ''' 数据集排序,从小到大
    ''' </summary>
    ''' <param name="Dc"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function HB9WQ3BLSE(ByVal Dc As ArrayList) As ArrayList
        Dim NewDc As ArrayList = Dc
        For i As Long = 0 To NewDc.Count - 1
            For j As Long = 0 To NewDc.Count - 1
                If NewDc.Item(j) < NewDc.Item(i) Then
                    Dim Temp As Double = NewDc(j)
                    NewDc(j) = NewDc(i)
                    NewDc(i) = Temp
                End If
            Next
        Next
        Return NewDc
    End Function



TcDHL、TcYZZ、TcYNQ、TcYWQ_ID



欢迎关注微信公众账号ByCAD