EXCLUIR VARIAS LINHAS DO MSFLEXGRID
Ola amigos, pra variar estou necessitando de uma ajuda de novo, estou tentando excluir algumas linha do flexgrid e não estou conseguindo, o codigo é esse:
[ô]Excluir do grid pedidos
If MSFlexGrid1.Rows > 1 Then
MSFlexGrid1.FixedRows = 0
For i = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5) = cCodMun Then
nEntregas = nEntregas - 1
nEntCid = nEntCid + 1
nTotPc = nTotPc - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
nTotKg = nTotKg - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
MSFlexGrid1.RemoveItem i
End If
Next i
Text11.Text = nEntregas
Text12.Text = nTotPc
Text13.Text = Format(nTotKg, [Ô]#,##0.000[Ô])
Text14.Text = Format(nCarVei - nTotKg, [Ô]#,##0.0[Ô])
cCodMun = [Ô][Ô]
End If
Desde de já agradeço
[ô]Excluir do grid pedidos
If MSFlexGrid1.Rows > 1 Then
MSFlexGrid1.FixedRows = 0
For i = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5) = cCodMun Then
nEntregas = nEntregas - 1
nEntCid = nEntCid + 1
nTotPc = nTotPc - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
nTotKg = nTotKg - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
MSFlexGrid1.RemoveItem i
End If
Next i
Text11.Text = nEntregas
Text12.Text = nTotPc
Text13.Text = Format(nTotKg, [Ô]#,##0.000[Ô])
Text14.Text = Format(nCarVei - nTotKg, [Ô]#,##0.0[Ô])
cCodMun = [Ô][Ô]
End If
Desde de já agradeço
Esqueci de citar o erro, invalid row value, me desculpem
Obrigado a todos, resolvi o problema a quem possa interessar dai
[ô]Excluir do grid pedidos
If MSFlexGrid1.Rows > 1 Then
MSFlexGrid1.FixedRows = 0
nLinhaCont = 1
Do While nLinhaCont <= MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = nLinhaCont
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5) = cCodMun Then
nEntregas = nEntregas - 1
nEntCid = nEntCid + 1
nTotPc = nTotPc - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
nTotKg = nTotKg - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
nLinhaCont = nLinhaCont - 1
End If
nLinhaCont = nLinhaCont + 1
Loop
Text11.Text = nEntregas
Text12.Text = nTotPc
Text13.Text = Format(nTotKg, [Ô]#,##0.000[Ô])
Text14.Text = Format(nCarVei - nTotKg, [Ô]#,##0.0[Ô])
cCodMun = [Ô][Ô]
End If
[ô]Excluir do grid pedidos
If MSFlexGrid1.Rows > 1 Then
MSFlexGrid1.FixedRows = 0
nLinhaCont = 1
Do While nLinhaCont <= MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = nLinhaCont
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5) = cCodMun Then
nEntregas = nEntregas - 1
nEntCid = nEntCid + 1
nTotPc = nTotPc - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)
nTotKg = nTotKg - MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7)
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
nLinhaCont = nLinhaCont - 1
End If
nLinhaCont = nLinhaCont + 1
Loop
Text11.Text = nEntregas
Text12.Text = nTotPc
Text13.Text = Format(nTotKg, [Ô]#,##0.000[Ô])
Text14.Text = Format(nCarVei - nTotKg, [Ô]#,##0.0[Ô])
cCodMun = [Ô][Ô]
End If
Tópico encerrado , respostas não são mais permitidas