LINHA DO MSFLEXGRID

NILTON.VIANNA 13/05/2010 20:58:47
#341736

Como considerar apena a primeira linha do msflexgrid
Exemplo; se eu usar esta função

Como minha listagem esta assim;

SQL = [Ô]SELECT FaturaID, PG, ValPedido, Debito FROM CadFaturas WHERE CadFaturas.Nome Like [Ô] & Criterio & [Ô] ORDER BY FaturaID DESC[Ô]

No caso pra considerar somente o ultimo lançamento no meu MSFLEXGRID = 00003

Fatura Valor Venda Pago Débitos
--------------------------------------------------
00003 770,00 100,00 600,00
00002 770,00 70,00 700,00
00001 770,00 0,00 770,00

--------------------------------------------------
Débito Pendentes = R$: 600,00

Sub SomaDebito()
Dim Total As Double
For Linha = 1 To FG1.Rows - 1
On Error Resume Next
Total = Total + CDbl(FG1.TextMatrix(Linha, 3)) [ô] 2 é a coluna a ser somada
Next Linha
txtValor.Text = Format(Total, [Ô]##,##0.00[Ô])
Limpa
End Sub

[ô]Se usar assim vai somar todas a colunas = R$: 2.070,00

Não sei se deu pra entender
Grato
Nilton
ROBIU 14/05/2010 05:50:53
#341745
Como você está ordenando os registros em ordem desc, o Valor do débito sempre vai ser o primeiro registro da grid:
TxtValor.Text = FormatNumber(FG1.TextMatrix(1, 3), 2)


Mas se quiser verificar todos os registros para garantir (Adaptando seu código):

Sub PegarDebito()
    Dim Total As Double
    Total = 0 [ô]Nem precisa, mas...
    For Linha = 1 To FG1.Rows - 1
    On Error Resume Next
    If Total < CDbl(FG1.TextMatrix(Linha, 3)) Then
        Total = CDbl(FG1.TextMatrix(Linha, 3))
    End If
    Next Linha
    TxtValor.Text = Format(Total, [Ô]##,##0.00[Ô])
    Limpa
End Sub
NILTON.VIANNA 21/05/2010 20:22:02
#342468
Consegui assim
FG1.Rows = Top
Tão simples
Tópico encerrado , respostas não são mais permitidas
Voltar