SOMAR SOMENTE AS LINHAS MARCADAS
pessoal, uso um flexgrid e 2 imagens (ImgMarcada e ImgDesmarcada)
ImgMarcada = um quadradinho com um x
ImgDesmarcada = um quadradinho vazio
quando clico em qualquer linha do grid ele muda a imagem que fica no inicio da linha... se tiver ImgMarcada ele muda para ImgDesmarcada
ai criei um botão para dar baixa em todas as parcelas (registros) que tenha a ImgMarcada no inicio da linha.... ficou assim o código:
então notem que o If .CellPicture = ImgMarcada Then é o que verifica qual imagem tá na linha e pega somente a que tiver a imagem ImgMarcada no inicio
TUDO FUNCIONANDO!
agora preciso colocar num textbox a soma de todas as .TextMatrix(.Row, 11) das linhas com a imagem ImgMarcada
ou seja, na coluna 11 possui o valor das parcelas... então quero colocar num textobox a soma desses valores da linhas selecionas....
como eu faço isso?
ImgMarcada = um quadradinho com um x
ImgDesmarcada = um quadradinho vazio
quando clico em qualquer linha do grid ele muda a imagem que fica no inicio da linha... se tiver ImgMarcada ele muda para ImgDesmarcada
ai criei um botão para dar baixa em todas as parcelas (registros) que tenha a ImgMarcada no inicio da linha.... ficou assim o código:
Dim f As Integer
With Grid_Parcelas
For f = 1 To .Rows - 1
.Col = 0
.Row = f
If .CellPicture = ImgMarcada Then
execSQL [Ô]UPDATE PARCELAS SET STATUS = TRUE, VALOR_FINAL = [ô][Ô] & Format(.TextMatrix(.Row, 11), [Ô]##,##0.00[Ô]) & [Ô][ô], PAGAMENTO = #[Ô] & Format(Date, [Ô]mm/dd/yyyy[Ô]) & [Ô]#, HORA = #[Ô] & Format(Now, [Ô]hh:mm[Ô]) & [Ô]#, JUROS = [ô][Ô] & Format(.TextMatrix(.Row, 8), [Ô]##,##0.00[Ô]) & [Ô][ô], DIAS_ATRAZO = = [Ô] & .TextMatrix(.Row, 7) & [Ô], FORMA_PGTO = [ô][Ô] & cboForma.Text & [Ô][ô] WHERE COD_PEDIDO = [Ô] & .TextMatrix(.Row, 3) & [Ô] AND NUMERO = [Ô] & .TextMatrix(.Row, 4) & [Ô][Ô]
End If
Next f
End Withentão notem que o If .CellPicture = ImgMarcada Then é o que verifica qual imagem tá na linha e pega somente a que tiver a imagem ImgMarcada no inicio
TUDO FUNCIONANDO!
agora preciso colocar num textbox a soma de todas as .TextMatrix(.Row, 11) das linhas com a imagem ImgMarcada
ou seja, na coluna 11 possui o valor das parcelas... então quero colocar num textobox a soma desses valores da linhas selecionas....
como eu faço isso?
Amigo pelo que entendi é isso!
Dim Total As Double
Dim f As Integer
Total = 0
With Grid_Parcelas
For f = 1 To .Rows - 1
.col = 0
.Row = f
If .CellPicture = ImgMarcada Then
execSQL [Ô]UPDATE PARCELAS SET STATUS = TRUE, VALOR_FINAL = [ô][Ô] & Format(.TextMatrix(.Row, 11), [Ô]##,##0.00[Ô]) & [Ô][ô], PAGAMENTO = #[Ô] & Format(Date, [Ô]mm/dd/yyyy[Ô]) & [Ô]#, HORA = #[Ô] & Format(Now, [Ô]hh:mm[Ô]) & [Ô]#, JUROS = [ô][Ô] & Format(.TextMatrix(.Row, 8), [Ô]##,##0.00[Ô]) & [Ô][ô], DIAS_ATRAZO = = [Ô] & .TextMatrix(.Row, 7) & [Ô], FORMA_PGTO = [ô][Ô] & cboForma.Text & [Ô][ô] WHERE COD_PEDIDO = [Ô] & .TextMatrix(.Row, 3) & [Ô] AND NUMERO = [Ô] & .TextMatrix(.Row, 4) & [Ô][Ô]
.col = 11
Total = Total + .TextMatrix(.Row, 11)
End If
Next f
TxtTotalDasParcelas.Text = Format(Total, [Ô]##,##0.00[Ô])
End With
Dim Total As Double
Dim f As Integer
Total = 0
With Grid_Parcelas
For f = 1 To .Rows - 1
.col = 0
.Row = f
If .CellPicture = ImgMarcada Then
execSQL [Ô]UPDATE PARCELAS SET STATUS = TRUE, VALOR_FINAL = [ô][Ô] & Format(.TextMatrix(.Row, 11), [Ô]##,##0.00[Ô]) & [Ô][ô], PAGAMENTO = #[Ô] & Format(Date, [Ô]mm/dd/yyyy[Ô]) & [Ô]#, HORA = #[Ô] & Format(Now, [Ô]hh:mm[Ô]) & [Ô]#, JUROS = [ô][Ô] & Format(.TextMatrix(.Row, 8), [Ô]##,##0.00[Ô]) & [Ô][ô], DIAS_ATRAZO = = [Ô] & .TextMatrix(.Row, 7) & [Ô], FORMA_PGTO = [ô][Ô] & cboForma.Text & [Ô][ô] WHERE COD_PEDIDO = [Ô] & .TextMatrix(.Row, 3) & [Ô] AND NUMERO = [Ô] & .TextMatrix(.Row, 4) & [Ô][Ô]
.col = 11
Total = Total + .TextMatrix(.Row, 11)
End If
Next f
TxtTotalDasParcelas.Text = Format(Total, [Ô]##,##0.00[Ô])
End With
Tópico encerrado , respostas não são mais permitidas