LIMPAR CELULAS DO FLEXGRID

IRENKO 22/04/2013 15:17:51
#422293
Como faço para limpar todas as celulas de um flexgrid meno o cabeçalho?
KERPLUNK 22/04/2013 17:21:06
#422300 Resposta escolhida 

flxMeuFlex.Rows=0
IRENKO 22/04/2013 18:57:31
#422312
Kerplook, não seria necessário um laço para percorrer o grid? Se sim, como fazer?
KERPLUNK 22/04/2013 19:13:35
#422316
Não é necessário, apenas coloque o número de linhas para 0 e todas vão sumir. Mas se o que você quer é apagar somente os valores, sem perder as linhas, daí sim tem que fazer um loop.
ANDPAG 23/04/2013 00:12:43
#422324
Eu uso essa minha função.

Public Sub ZeraGrid(ByRef aGrid As Object, ByVal aCabecalho As String, ParamArray aTamanho() As Variant)
[ô]Exemplo de uso:
[ô]ZeraGrid FGR_Embalagem, [Ô]Embalagem|Quantidade|Contém[Ô], 5000, 1300, 1380
Dim a As Integer, vUltimaColuna As Integer

vUltimaColuna = UBound(aTamanho)

aGrid.Tag = [Ô]0[Ô]
aGrid.Clear

aGrid.Rows = 2
aGrid.Cols = vUltimaColuna + 1
aGrid.FormatString = aCabecalho

For a = 0 To vUltimaColuna
aGrid.ColWidth(a) = aTamanho(a)
Next a
[ô]aGrid.RowHeight(0) = aAlturaPrimeiraLinha
End Sub

Para usa-la
Ex: ZeraGrid Seugrid,[Ô]SuaColuna|SuaColuna2|SuaColuna3[Ô],1000,1500,1500

Abs
IRENKO 23/04/2013 07:20:23
#422325
Exatamente KERPLUNK, eu quero apagar somente os dados. Como seria esse loop?
KERPLUNK 23/04/2013 09:03:04
#422331
Seria algo assim:

For i% = 1 To flxMeuFlex.Rows - 1
    For j% = 0 To flxMeuFlex.Cols - 1
        flxMeuFlex.TextMatrix(i%, j%) = [Ô][Ô]
    Next j%
Next i%
Tópico encerrado , respostas não são mais permitidas
Voltar