CAMPO DATA EM ORDEM DE DATA NO DATAGRID
OLá tenho esta função que esta ordenando por ordem decrescente e crescente todos os campos até ai esta ok,
mas o campo data não pode ficar em ordem crescente e decrescente. ele tem que ficar por ordem de data, quando clico na grid data. Alguem sabe como fazer?
obrigada
Public Sub SortSprData(ObjSpr As vaSpread, ByVal Col As Integer, ByVal Row As Integer, Optional ByVal RowGrandTotal As Boolean = False)
MousePointerAnt = Screen.MousePointer
With ObjSpr
If Row > .RowsFrozen Then Exit Sub
Screen.MousePointer = vbHourglass
.SortBy = SortByRow
.SortKey(1) = Col
.SortKeyOrder(1) = IIf(.SortKeyOrder(1) = SortKeyOrderDescending, SortKeyOrderAscending, SortKeyOrderDescending)
.Col = 1
.Col2 = .MaxCols
.Row = .RowsFrozen + 1
.Row2 = .MaxRows - IIf(RowGrandTotal, 1, 0)
.Action = ActionSort
.TopRow = .RowsFrozen + 1
End With
Screen.MousePointer = MousePointerAnt
End Sub
mas o campo data não pode ficar em ordem crescente e decrescente. ele tem que ficar por ordem de data, quando clico na grid data. Alguem sabe como fazer?
obrigada
Public Sub SortSprData(ObjSpr As vaSpread, ByVal Col As Integer, ByVal Row As Integer, Optional ByVal RowGrandTotal As Boolean = False)
MousePointerAnt = Screen.MousePointer
With ObjSpr
If Row > .RowsFrozen Then Exit Sub
Screen.MousePointer = vbHourglass
.SortBy = SortByRow
.SortKey(1) = Col
.SortKeyOrder(1) = IIf(.SortKeyOrder(1) = SortKeyOrderDescending, SortKeyOrderAscending, SortKeyOrderDescending)
.Col = 1
.Col2 = .MaxCols
.Row = .RowsFrozen + 1
.Row2 = .MaxRows - IIf(RowGrandTotal, 1, 0)
.Action = ActionSort
.TopRow = .RowsFrozen + 1
End With
Screen.MousePointer = MousePointerAnt
End Sub
Boa Tarde,
Tenta Assim,
Põe uma [Ô]MASKEDBOX[Ô] no seu formulario. e clica nele, como se vc fosse movê-lo.
Clica na setinha preta que aparece e entao clique em Set Mask.
Na Set Mask você pode por o formato que sua box fique. é como se fosse uma Text Box porem com Caracteres Fixos.
Veja na Foto !
Tenta Assim,
Põe uma [Ô]MASKEDBOX[Ô] no seu formulario. e clica nele, como se vc fosse movê-lo.
Clica na setinha preta que aparece e entao clique em Set Mask.
Na Set Mask você pode por o formato que sua box fique. é como se fosse uma Text Box porem com Caracteres Fixos.
Veja na Foto !
Oi, Samuel obrigada por responder
mas é que no meu Form eu tenho uma spread componente do vb 6.0
e as 9 colunas estão na spread e tambem a coluna data
no código acima que postei todos os campos funcionam corretamente, menos o campo data
e nas propriedades da spread não tem o maskedbox. E colocando no form não adianta, porque em cima do form eu tenho a spread
que é onde esta tudo
como faço?
obrigada
mas é que no meu Form eu tenho uma spread componente do vb 6.0
e as 9 colunas estão na spread e tambem a coluna data
no código acima que postei todos os campos funcionam corretamente, menos o campo data
e nas propriedades da spread não tem o maskedbox. E colocando no form não adianta, porque em cima do form eu tenho a spread
que é onde esta tudo
como faço?
obrigada
Faça seu login para responder