SPREADSHEET EM VISUAL BASIC ORDENACAO

MARINA33 06/09/2013 15:18:04
#428549

Olá Boa tarde Alguém pode me ajudar? Estou com 9 colunas na spread e a coluna 1 é data.
Preciso que quando o usuario clicar na coluna 2, ou 3 ou 4 a coluna 1 que é data fique ordenado por ordem de data. Do jeito que esta no fonte abaixo esta ordenando por crescente e decrescente. Na função Sort tem uma ordenação por data? O códgo esta abaixo.


Private Sub SPR_Lista1_Click(ByVal Col As Long, ByVal Row As Long)

Dim vl_str_aux As String
Dim sSQL As String

If Row = 0 Then
SortSpr SPR_Lista1, Col, Row [ô]ZarpSystem

SPR_Lista1.SortBy = SortByRow
SPR_Lista1.SortKey(1) = Col
If SPR_Lista1.SortKeyOrder(1) = SortKeyOrderAscending Then
SPR_Lista1.SortKeyOrder(1) = SortKeyOrderDescending
Else
SPR_Lista1.SortKeyOrder(1) = SortKeyOrderAscending
End If
SPR_Lista1.Col = 1
SPR_Lista1.Col2 = SPR_Lista1.MaxCols
SPR_Lista1.Row = 0
SPR_Lista1.Row2 = SPR_Lista1.DataColCnt

SPR_Lista1.Action = ActionSort
End If
[ô]End If

Exit Sub