>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
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