Flexgrid

[@line]

Olá pessoal.

Eu gostaria de mostrar a soma de valores das colunas de um flexgrid quando um usuário selecionasse um intervalo com o mouse.

Por exemplo, o usuário seleciona da coluna 1 à coluna 5 da linha 1. Então automaticamente o valor da soma dessas colunas apareceria em um label.

Alguém sabe como fazer?

[Graymalkin]

Utilize o evento SelChange para isso. Segue um exemplo abaixo:

Private Sub Grade_SelChange()
    If Grade.Row > Grade.RowSel Then
        inicio = Grade.RowSel
        fim = Grade.Row
    Else
        inicio = Grade.Row
        fim = Grade.RowSel
    End If
    
    For i = inicio To fim
        soma = soma + Int(Grade.TextMatrix(i, Grade.Col))
    Next i
    Label1.Caption = soma
End Sub

Note que o nome do flexgrid no exemplo acima é "Grade".

Abraços,

Graymalkin

[Guest Guest]

Obrigada!