FLEXGRID

GUIGOR 16/08/2012 15:28:43
#408034
Boa Tarde,

Amigos eu tenho um flexgrid com os dados preenchidos, e entao gostaria de inserir todo o conteudo dentro de uma tabela e nao sei com fazer pois nunca usei esse grid, com o listview eu faço assim:

With GridPRoduto.ListItems
con.BeginTrans
For i = 1 To .cout
sql = [Ô]insert into CodNcm (CodNcm , Descrição) [Ô] & _
[Ô]Values ( [ô][Ô] & .Item(i).SubItems(1) & [Ô][ô], [Ô] & Replace(.Item(i).SubItems(3), [Ô],[Ô], [Ô].[Ô]) & [Ô] )[Ô]
con.Execute sql
Next i
con.CommitTrans
End With

e no caso do flex grid como eu faria?
MARCELO.TREZE 16/08/2012 16:10:11
#408036
assim

With MSFlexgrid1
For L = 1 To .Rows - 1
sql = [Ô]insert into CodNcm (CodNcm , Descrição) Values ( [ô][Ô] & .TextMatrix(L, 0) & [Ô][ô],  [Ô] & Replace(.TextMatrix(L, 1), [Ô],[Ô], [Ô].[Ô]) & [Ô] )[Ô]
con.Execute sql
Next L
con.CommitTrans
End With
GUIGOR 17/08/2012 08:30:51
#408078
no caso como eu faria para somar a coluna do flexgrid, e como eu posso incluir um intem de cada vez.
MARCELO.TREZE 17/08/2012 10:41:29
#408099
incluir um item de cada vez

no Botão

Dim Linha As Integer
With MSFlexgrid1
.Rows = .Rows + 1
Linha = .Rows -1
.TextMatrix(Linha, 0) = Text1.Text
.TextMatrix(Linha, 1)  = Text2.Text
[txt-color=#007100][ô]...e assim sucessivamente[/txt-color]
End With


agora para somar a coluna do flexgrid

lembrando que a primeira coluna sempre será a zero

Dim Soma As Double
With MSFlexgrid1
For L = 1 To .Rows - 1
Soma = Soma + CDbl(.TextMatrix(L, 4)) [ô] aqui eu somei a coluna 4
Next L
[txt-color=#007100][ô] agora vc pode exibir em um label[/txt-color]
lblSoma.Caption = Soma
[txt-color=#007100][ô] Ou no proprio flex[/txt-color]
.Rows = .Rows + 1
.TextMatrix(.Rows -1, 4) = Soma


espero que tenha entendido
GUIGOR 17/08/2012 15:09:54
#408114
estou incluindo os item no banco conforme vc disse
With MSFlexgrid1
For L = 1 To .Rows - 1
sql = [Ô]insert into CodNcm (CodNcm , Descrição) Values ( [ô][Ô] & .TextMatrix(L, 0) & [Ô][ô], [Ô] & Replace(.TextMatrix(L, 1), [Ô],[Ô], [Ô].[Ô]) & [Ô] )[Ô]
con.Execute sql
Next L
con.CommitTrans
End With

sendo que ele nao esta incluindo o primeiro registro ja tentei tirar o -1 mas tambem nao da certo
MARCELO.TREZE 17/08/2012 15:12:44
#408115
Desculpe é

For L = [txt-color=#e80000]0 [/txt-color]To .Rows -1
GUIGOR 24/08/2012 11:13:56
#408547
este ex so soma as 2 primeiras linhas e o meu grid te 6
Dim Soma As Double
With MSFlexgrid1
For L = 1 To .Rows - 1
Soma = Soma + CDbl(.TextMatrix(L, 4)) [ô] aqui eu somei a coluna 4
Next L
[ô] agora vc pode exibir em um label
lblSoma.Caption = Soma
[ô] Ou no proprio flex
.Rows = .Rows + 1
.TextMatrix(.Rows -1, 4) = Soma
MARCELO.TREZE 24/08/2012 11:34:34
#408554
GUIGOR repare que acima eu me corrigi FOR L = 0 (zero) e não 1 como eu havia dito

vamos entender seu grid primeiro, tem como vc postar uma imagem do seu grid pra eu poder entende-lo
GUIGOR 24/08/2012 11:48:36
#408556
segui o ex para somar da seguinte forma:

Dim Soma As Double
With MSFlexgrid1
For L = 1 To .Rows - 1
Soma = Soma + CDbl(.TextMatrix(L, 2)) [ô] aqui eu somei a coluna 2
Next L
[ô] agora vc pode exibir em um label
lblSoma.Caption = Soma
[ô] Ou no proprio flex
.Rows = .Rows + 1
.TextMatrix(.Rows -1, 4) = Soma
End With
MARCELO.TREZE 24/08/2012 11:54:45
#408559
então olhando seu Grid digo que assim deveria funcionar

Dim Soma As Double

With MSFlexgrid1
For L = 0 To .Rows - 1
Soma = Soma + CDbl(.TextMatrix(L, 2)) [ô] aqui eu somei a coluna 2
Next L
End With


para exibir

blSoma.Caption = Format(Soma,[Ô]Currency[Ô])


veja novamente se funciona ou não.

PS: é flexgrid mesmo to extranhando o formato
GUIGOR 24/08/2012 14:42:44
#408588
perfeito, a somo foi resolvida, mas quando eu mando incluir uma linha no grid ele nao inclui fica desta forma

Dim Linha As Integer
With USFlexGrid1
.Rows = .Rows + 1
Linha = .Rows - 1
.TextMatrix(Linha, 0) = Format(Soma, [Ô]Currency[Ô])
.TextMatrix(Linha, 1) = [Ô]TOTAL ARRECADADO[Ô]
[ô]...e assim sucessivamente
End With
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar