MSHFLESGRID
Galera estou de volta e encontrei o componente que estava atraz para resolver os meus problemas e se chama MsHflexGrid coloque no meu form e funcionou perfeito com meu provedor de acesso a firibird e e apropriado para a minha conexao ADO
agora gostaria de saber porque que nao acontece o procedimento que deveria acontecer ja que coloco as mesma linha de comando
o procedimento no msflexgrid da tudo certo que e limpar e remover os intens do grid mais no Mshflexgrid da errado as linha sao essas
Dim Linha As Integer
MsgBox MeuGrid.Rows
MeuGrid.Clear
For Linha = 1 To MeuGrid.Rows
If MeuGrid.Rows > 2 Then
MeuGrid.RemoveItem (MeuGrid.Rows)
End If
Next Linha
quem pode ajudar?
agora gostaria de saber porque que nao acontece o procedimento que deveria acontecer ja que coloco as mesma linha de comando
o procedimento no msflexgrid da tudo certo que e limpar e remover os intens do grid mais no Mshflexgrid da errado as linha sao essas
Dim Linha As Integer
MsgBox MeuGrid.Rows
MeuGrid.Clear
For Linha = 1 To MeuGrid.Rows
If MeuGrid.Rows > 2 Then
MeuGrid.RemoveItem (MeuGrid.Rows)
End If
Next Linha
quem pode ajudar?
para limpar ele você pode fazer assim:
MeuGrid.rows=1
tenta isso ai !!!
ou
For i = 1 To (Grid.Rows - 2)
Grid.RemoveItem (1)
Next i
'Aqui coloca as colunas que você tem pq a primeira não pode ser removida
'Ele coloca a coluna em branco nesse caso as 4 colunas em branco
Grid.TextMatrix(1, 0) = ""
Grid.TextMatrix(1, 1) = ""
Grid.TextMatrix(1, 2) = ""
Grid.TextMatrix(1, 3) = ""
MeuGrid.rows=1
tenta isso ai !!!
ou
For i = 1 To (Grid.Rows - 2)
Grid.RemoveItem (1)
Next i
'Aqui coloca as colunas que você tem pq a primeira não pode ser removida
'Ele coloca a coluna em branco nesse caso as 4 colunas em branco
Grid.TextMatrix(1, 0) = ""
Grid.TextMatrix(1, 1) = ""
Grid.TextMatrix(1, 2) = ""
Grid.TextMatrix(1, 3) = ""
Tópico encerrado , respostas não são mais permitidas