TabStrip e flexgrid

[Lucaoliver]

Buondì a voi tutti

Vi chiedo un consiglio

Ho inserito in un form una tabstrip dove all'interno
vi sono due flexgrid ( una per ogni cartella )
Una flex mi serve per visualizzare alcune voci
nell'altra c'è l'intero archivio.

Nel momento in cui elimino un record da una delle due flexgrid
ho impostato un timer per far avviare un sql che mi aggiorna la griglia.
Il fatto è che nonostante abbia impostato il timer a 4000 dopo aver eliminato il record resta ancora presente nella griglia e scompare
quando passo da una cartella ad un altra del TabStrip
Qualche consiglio ??

[PUNKABBESTIA]

Ciao ... Dopo aver eliminato il record hai provato a mettere un refresh della griglia / flexgrid ?

[Lucaoliver]

Durante il debug il meccanismo funziona
è in condizioni normali che non va,il refresh c'è
In pratica elimino il record attraverso un sql
poi mi parte un timer impostato a 4000 e infine mi rifà una select
per aggiornare la flexgrid.
Credo che il timer impostato a 4000 sia più che sufficente
per avere il tempo di eliminare il record e aggiornare la griglia ma evidentemente c'è qualcosa che mi sfugge.
Che ne dite?

[Lucaoliver]

UPS Proprio nessuna idea....?

[michelepi]

Anche a me il refresh della griglia non andava, però non ricordo come avevo risolto.
Perchè non provi dopo l'eliminazione del record sempre nello stesso codice a riselezionare tutto con una select.
Oppure anche un messaggio dell'avvenuta eliminazione del record e subito rifai la select.
Dovrei guardarmi il progetto che avevo fatto per dirti come ho risolto.
Comunque fai un tentativo con i primi due.

[ladyBlu]

per refresh intendi reinterrogare il database e ricaricare la griglia o semplicemente refreshare i dati visualizzati? :master:

[Lucaoliver]

Credo di aver trovato il problema
Provo e vi faccio sapere

[Lucaoliver]

Provate a vedere se c'è qualcosa che non va

Questi i passaggi:
Prima l'eliminazione del record, che fa avviare un timer impostato a 4000 e infine il timer rifà la SELEZIONE NEL DATABASE

Private Sub Delapp_Click()
If Codforn = "Data " Then
Exit Sub
End If
If Trim(Codforn) = " " Then
Exit Sub
End If
If Codforn = "Numer" Then
Exit Sub
End If
MsgBox "Vuoi cancellare l'appuntamento n "
Numeroapp = Codforn
sql_textcancella1 = "delete * from Appuntamenti where Numero = "& Numeroapp
SetlRsElimina1 = DatabaseAgenda.Execute(sql_textcancella1)
Timer2.Enabled = True
Timer2.Interval = 4000
End Sub

Private Sub Timer2_Timer()
DoSql1
Timer2.Enabled = False
end sub

Sub DoSql1()
Timer2.Enabled = False

Dim mysql$
Pipposta = " "
Pippo = " "
Pippo = Format(Now, "dd mm yyyy") ' Aggiorna il tempo
girodata = Mid(Pippo, 7, 4) & Mid(Pippo, 4, 2) & Mid(Pippo, 1, 2)
Pipposta = girodata
mysql$ = "SELECT Numero,Datagir,ora,Oggetto " _
& "FROM Appuntamenti where Data = '" & girodata & "'" _
& " ORDER BY Ora"
Flex.Row = 0
MSRDC1.SQL = mysql$
MSRDC1.Refresh
Flex.Refresh
Frameapp.Refresh
' Flex.Sort = 1
End Sub

[Lucaoliver]

Non va Non va e ancora non va
Accetto suggerimenti

[Lucaoliver]

UPs Nessuno può aiutarmi
o siete in ferie
in questo caso "Beati Voi"
Ciao