MSFLEXGRID

JAMESBOND007 24/06/2010 14:41:38
#345691
Como fazer para flexgrid ficar atualizando?
coloquei um timer com a seguinte linha.

Private Sub Timer2_Timer()
            tabelas.Update
End Sub

so que da erro!
alguem teria outra forma de atualizara flexgrid sem abrila e fechala?
JAMESBOND007 24/06/2010 15:11:01
#345700
Alguem!!!
JAMESBOND007 24/06/2010 15:37:17
#345705
Mais cara mesmo assim não da certo 
Private Sub carga()
            If tabelas.State = adStateClosed Then tabelas.Open [Ô]checklist[Ô], conectiva, adOpenKeyset, adLockOptimistic
            Do Until tabelas.EOF
        mfginiciar.TextMatrix(mfginiciar.Rows - 1, 0) = tabelas!codigo
            mfginiciar.TextMatrix(mfginiciar.Rows - 1, 1) = tabelas!placa
                mfginiciar.TextMatrix(mfginiciar.Rows - 1, 2) = tabelas!vendedor
                    mfginiciar.TextMatrix(mfginiciar.Rows - 1, 3) = tabelas!mecanico
                        mfginiciar.TextMatrix(mfginiciar.Rows - 1, 4) = tabelas!pneus
                            mfginiciar.TextMatrix(mfginiciar.Rows - 1, 5) = tabelas!balanceamento
                                mfginiciar.TextMatrix(mfginiciar.Rows - 1, 6) = tabelas!rodas
                                    mfginiciar.TextMatrix(mfginiciar.Rows - 1, 7) = tabelas!mecanica
                                        mfginiciar.TextMatrix(mfginiciar.Rows - 1, 8) = tabelas!amortecedores
                                            mfginiciar.Rows = mfginiciar.Rows + 1
                                                tabelas.MoveNext
                                                    Loop
                                                        mfginiciar.Rows = mfginiciar.Rows - 1
End Sub



eu chamo a função no timer ela vai subtraindo as rows ate da erro. entendeo
não funfa

e no timer eu fasso isso >> 
Private Sub Timer2_Timer()
carga
End Sub
MSMJUDAS 24/06/2010 16:29:02
#345710
Para preencher a grid vc faz assim:

gridDados.Rows = 1 + RsItem.RecordCount
While Not RsItem.EOF
gridDados.TextMatrix(I, 0) = I
gridDados.TextMatrix(I, 1) = Format(RsItem([Ô]MAT_SEQ[Ô]), [Ô]000000[Ô])
gridDados.TextMatrix(I, 2) = RsItem([Ô]MAT_DESCRICAO[Ô])
gridDados.TextMatrix(I, 3) = RsItem([Ô]UNI_SIGLA[Ô])
gridDados.TextMatrix(I, 4) = [Ô]0,000[Ô]
gridDados.TextMatrix(I, 5) = [Ô]0,00[Ô]
gridDados.TextMatrix(I, 6) = [Ô]0[Ô]
gridDados.TextMatrix(I, 7) = [Ô]0,00[Ô]
gridDados.TextMatrix(I, 9) = [Ô]0,00[Ô]
RsItem.MoveNext
I = I + 1
Wend
LLAIA 24/06/2010 16:30:54
#345712
Private Sub carga()
If tabelas.State = adStateClosed Then tabelas.Open [Ô]checklist[Ô], conectiva, adOpenKeyset, adLockOptimistic

[ô] coloca isso [txt-color=#0000f0]mfginiciar.Rows = 2[/txt-color]

Do Until tabelas.EOF
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 0) = tabelas!codigo
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 1) = tabelas!placa
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 2) = tabelas!vendedor
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 3) = tabelas!mecanico
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 4) = tabelas!pneus
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 5) = tabelas!balanceamento
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 6) = tabelas!rodas
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 7) = tabelas!mecanica
mfginiciar.TextMatrix(mfginiciar.Rows - 1, 8) = tabelas!amortecedores
mfginiciar.Rows = mfginiciar.Rows + 1
tabelas.MoveNext
Loop
[ô] tira isso [txt-color=#e80000]mfginiciar.Rows = mfginiciar.Rows - 1[/txt-color]
End Sub
MICROSCHEME 24/06/2010 18:42:37
#345724
Substitua ApostasRecSet pelo nome do teu Recordset e MSFlexgrid001 pelo nome do teu grid

Private Sub Timer2_Timer()
CarregaGrade
End Sub

Private Function CarregaGrade()
If Not ApostasRecSet.RecordCount = 0 Then
MSFlexGrid001.Rows = ApostasRecSet.RecordCount + 1
MSFlexGrid001.Cols = ApostasRecSet.Fields.Count
MSFlexGrid001.Row = 1
MSFlexGrid001.Col = 0
MSFlexGrid001.RowSel = MSFlexGrid001.Rows - 1
MSFlexGrid001.ColSel = MSFlexGrid001.Cols - 1
MSFlexGrid001.Clip = ApostasRecSet.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
MSFlexGrid001.Row = 1
End If
End Function
JAMESBOND007 25/06/2010 10:48:37
#345776
LLAIA,
funcionou!!!!! so que não organiza meus codigos tem que aparecer o ultimo codigo entendeo?
LLAIA 26/06/2010 16:47:32
#345875
Citação:

:
LLAIA,
funcionou!!!!! so que não organiza meus codigos tem que aparecer o ultimo codigo entendeo?



se vc se refere a exibição do ultimo registro lançado no grid faça isso após o preenchimento:

[txt-color=#0000f0]mfginiciar.TopRow = mfginiciar.Rows - 1[/txt-color]
JAMESBOND007 28/06/2010 11:26:34
#345964
alguem????
MSMJUDAS 28/06/2010 11:32:23
#345966
Tentou usar o que o LLAIA postou?


Ou ordene através da sua query utilizando o DESC, tipo: ...ORDER BY CODIGO DESC
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar