FORMATAR COLUNA NO MSFLEXGRID

NILTON.VIANNA 21/01/2011 19:52:48
#363022
Ola amigos
Estou montando uma tabela em MSFLEXGRID
Com os campos
Quat Descrição Unitário Total
1,000 Item 10,00 10 ---> essa não formata
Somente a ultima coluna não formata?
Será porque é a ultima?

If Grid.Col = 1 Then
Grid.Text = Format(Grid.Text, [Ô]##,##0.000[Ô])
End If

Grato
XXXANGELSXXX 21/01/2011 20:27:36
#363027
não tem nada haver ser a ultima.
vou te mandar como eu faço formataçoes.. ok.

   
[ô]Formatação do Grid Principal
Private Sub FormataGrid()
    Dim WsHeader As String
    With TDBGrid1
        .Clear
        WsHeader = [Ô]|Código|Descrição                                                                                                                                                                                                                                                                                                                                     |||||||Valor Inicial   |Valor Final   |[Ô]
        .FormatString = WsHeader
        .ColWidth(3) = 0: .ColWidth(4) = 0: .ColWidth(5) = 0: .ColWidth(6) = 0: .ColWidth(7) = 0: .ColWidth(8) = 0
        .Rows = 1
        .FixedRows = 1
        .Cols = 11
        .SelectionMode = 1
    End With
End Sub
[ô]Preenche Grid Principal
Private Sub PreencherGridPrincipal()
    On Error GoTo ErrorLine
    Conecta True
    Set MyRs = New ADODB.Recordset
    StrSql = [Ô]select idclassificacao,classdescricao,classativa,classuma,classduas,classtres,classquatro,classcinco,classvlini,classvlfim [Ô]
    StrSql = StrSql & [Ô] from cadclassificacaoclientes[Ô]
    MyRs.Open StrSql, Conexao, adOpenStatic, adLockReadOnly
    Call FormataGrid
    If MyRs.RecordCount > 0 Then
        With TDBGrid1
            While Not MyRs.EOF
                .AddItem MyRs!idclassificacao & _
                         Chr(9) & Format(MyRs!idclassificacao, [Ô]00000[Ô]) & _
                         Chr(9) & MyRs!classdescricao & _
                         Chr(9) & MyRs!classativa & _
                         Chr(9) & MyRs!classuma & _
                         Chr(9) & MyRs!classduas & _
                         Chr(9) & MyRs!classtres & _
                         Chr(9) & MyRs!classquatro & _
                         Chr(9) & MyRs!classcinco & _
                         Chr(9) & format(MyRs!classvlini,[Ô]currency[Ô]) & _
                         Chr(9) & format(MyRs!classvlfim,[Ô]currency[Ô])
                MyRs.MoveNext
            Wend
            .Row = 1: .Col = 0
        End With
        MyRs.Close
        Set MyRs = Nothing
        Conecta False
    Else
        TDBGrid1.Clear: TDBGrid1.Row = 0: TDBGrid1.Col = 0: Call FormataGrid
    End If
End Sub
NILTON.VIANNA 21/01/2011 20:41:58
#363028
E que não estou carregando um GRID e sim editando direto
As três primeiras colunas tudo bem, mas quando na ultima
é minha duvida

Sub SomaLinha()
For Linha = 1 To Grid.Rows - 1
On Error Resume Next
Me.Grid.TextMatrix(i, 4) = Format(Me.Grid.TextMatrix(i, 4), [Ô]#,##0.00[Ô])
Me.Grid.TextMatrix(Linha, 4) = CCur(Grid.TextMatrix(Linha, 1) * CCur(Grid.TextMatrix(Linha, 3)))
Next Linha
End Sub

Grato
FININHO 21/01/2011 21:24:27
#363036

Sub SomaLinha()
For Linha = 1 To Grid.Rows - 1
On Error Resume Next
Me.Grid.TextMatrix(Linha, 4) = CCur(Grid.TextMatrix(Linha, 1) * CCur(Grid.TextMatrix(Linha, 3)))
Me.Grid.TextMatrix(Linha, 4) = Format(Me.Grid.TextMatrix(Linha, 4), [Ô]#,##0.00[Ô])

Next Linha
End Sub
NILTON.VIANNA 21/01/2011 21:44:21
#363038
Valeu Luiz carlos , deu certinho
abusando da sua boa vontade
no campo textBox para selecionar um textbox eu uso assim

Public Sub SelecionaTexto(txtObjeto As TextBox)
With txtObjeto
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Private Sub txtNome_GotFocus()
SelecionaTexto txtNome
End Sub

no caso do Msflegrid é mais ou mesnos isso ?
Grato
XXXANGELSXXX 21/01/2011 22:49:24
#363041
text1.text =[Ô][Ô] & seugrid.textmatrix(seugrid.row,0)

obs : row,0 é a coluna.. entao..
row,0) coluna 0
row,1)coluna 1
e assim sucessivamente.
FININHO 22/01/2011 00:54:59
#363056
Olha Nilton, se está se referindo a seleção do texto de uma celula, acho que não.
Já a maneira de obter o conteudo de uma celula, é conforme o XXXANGELSXXX mostrou.
E se precisar destacar a celula que está com o foco, use a propriedade CellBackColor.
NILTON.VIANNA 22/01/2011 17:11:27
#363103
Seria pra selecionar todo texto , Somente a cada célula
Tópico encerrado , respostas não são mais permitidas
Voltar