다음과 같은 컬렉션을 "Field 1"열로 정렬하려는 경우 Sort Collection을 사용하여 잘 정렬되지 않습니다.
열의 형태가 Text형이기 때문입니다.


그래서, 지정된 열의 형태를 강제로 Integer형으로 해 소트 하는 오브젝트를 만들었습니다.
베이스는 Sort Collecction입니다.

입력

Output

코드

Try
    Dim New_Collection As System.Data.DataTable
    New_Collection = New DataTable()

    For Each c As System.Data.DataColumn In Collection_In.Columns
        If c.ColumnName = Sort_Field Then
            New_Collection.Columns.Add(New DataColumn(Sort_Field, GetType(Integer)))
        Else
            New_Collection.Columns.Add(New DataColumn(c.ColumnName, GetType(String)))
        End If
    Next

    For Each r As System.Data.DataRow In Collection_In.Rows
        New_Collection.ImportRow(r)
    Next

    If Ascending Then
        New_Collection.DefaultView.Sort = Sort_Field & " ASC"
    Else
        New_Collection.DefaultView.Sort = Sort_Field & " DESC"
    End If
    Sorted_Collection = New_Collection.DefaultView.ToTable
    Success = True
    Message = ""
Catch e As Exception
    Success = False
    Message = e.Message
End Try

샘플

htps : // 기주 b. 코 m / 후 lcs b / b p sm / t ree / 코 c 치온
BPA 객체 - 숫자로 정렬 .xml