VB读取多个EXCEL文档 用水晶报表显示时的排序问题

Question

请问利用VB 6.0读取多个EXCEL文档时，如果其中一列是日期时间，并用水晶报表9.0显示出来，
那么如何将读取到的这些Excel文档按照其中的日期时间这一列在报表上按时间从小到大排序，并显示？
例如：
Output File        Date/Time          QTY
S1070227077001.csv 2007-2-29 16:36:32 77 
S1070227078001.csv 2007-2-27 20:36:32 78 
S1070227098001.csv 2007-2-30 21:36:33 98 希望排序后是：
Output File        Date/Time          QTY
S1070227077001.csv 2007-2-27 20:36:32 78 
S1070227078001.csv 2007-2-29 16:36:32 77 
S1070227098001.csv 2007-2-30 21:36:33 98 
在VB中排序，还是水晶报表中也可实现排序功能？

Answer 1

Dim a(1 To 100) As String
        For w = 1 To sortarray.Count
        a(w) = sortarray.Item(w)
        Next
        For i = 2 To sortarray.Count Step (4)
        For r = i + 4 To sortarray.Count Step (4)
        If CDate(a(r)) < CDate(a(i)) Then
        w = r
        
    sDT = a(r)
    a(r) = a(i)
    a(i) = sDT
    sDT = a(r - 1)
    a(r - 1) = a(i - 1)
    a(i - 1) = sDT
    sDT = a(r + 1)
    a(r + 1) = a(i + 1)
    a(i + 1) = sDT
    sDT = a(r + 2)
    a(r + 2) = a(i + 2)
    a(i + 2) = sDT
    Else
    w = i
    End If
    Next r
自己解决