Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Listbox contents not updating on form
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00572133
Message ID:
00572199
Vues:
37
>Thanks Nadya! It works now. I tried the Lockscreen and that solved the final problem of the form not refreshing or repainting properly. Here's the code in the GotFocus for the form that works now. Thanks again.
>
 with thisform
 >.Lockscreen = .T.
>* Find Attempts record that goes with Tube record
>CREATE CURSOR atts;
>(Ext C(3), Seqno N(2), Placed C(18), Route C(10), Ext_Reas C(12))
>
>ATTS_CNT=0
>SELECT attempts
>SCAN FOR attempts.mast_id = tube.mast_id
        scatter memvar && it looks like you have same fields in both tables
        insert into atts from memvar
>	*SELECT atts
>	*APPEND BLANK
>	*REPLACE atts.ext 		WITH attempts.ext
>	*REPLACE atts.seqno 		WITH attempts.seqno
>	*REPLACE atts.placed 	WITH attempts.placed
>	*REPLACE atts.route 		WITH attempts.route
>	*REPLACE atts.ext_reas 	WITH attempts.ext_reas
>
>       ATTS_CNT=ATTS_CNT+1
>ENDSCAN
>
>.lstTube_tries.Requery
>*.lstTube_tries.Refresh
>.Lockscreen = .F.
> endwith
SELECT tube
>
>
>Picky, picky, picky that's VFP for ya! At least of still have some hair left. I was starting to pull it out. There is an extra flash when the form appears, but I think I know why. Otherwise, it works perfectly now.

In addition, one replace command is faster, than multiple. Though in your case INSERT INTO command may be even better. Not to mention, that if you use thisform. more than 3 times in the same method, I usually use WITH ENDWITH construct (it increases readability and probably speed, though the difference would not be notable).
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform