Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Strange eratic behavior with Edit box.
Message
De
22/02/1998 15:13:28
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00080311
Message ID:
00080338
Vues:
28
Oh, ok that is better. I also just took out the if !empty and the _tally (I think it was the Tally that was screwing it up for some reason) and it works fine now. It's as if the _tally was reporting 0 even though a record was getting appended. I'll modify it as per your code below to make it leaner. Incidentally, do you ever notice that sometimes it seems that foxpro seems to get ahead of itself, or it goes to fast to update certain things even though you seem to be putting code in to do it? I had a form which had a progress bar that showed the progress of a certain process. I had purchased the Dynazip activeX control which was also on my form a before I would even instanstiate it at all, I would make my progress bar visible again and reset it to 0% completed. Then I would instanstiate the dzip control. The progress bar stayed at 100% as if it was still showing the first process'es completion. What I did to fix it, and I'm sure there is a better way, was to just put a WAIT TIMEOUT 1 right after I had reset the progress bar. That made it act as it should. I thought that's what was happening here but I was wrong. Do you have any technique that you use to fix the above though? Thanks again Jim -Rick >I don't why it isn;t working for you now but I do have a suggestion to make it simpler. > >create cursor MyCursor1 (Mem1 m, Mem2 m) >append blank >append memo mem1 from (lcMyTextFile) overwrite >append memo mem2 from (lcOtherTxtFile) overwrite >if !empty(MyCursor1.mem1) && don't need _tally here .and. _tally != 0 >thisform.indexes.controlsource = "MyCursor1.mem1" >endif >if !empty(MyCursor1.mem2) >thisform.fields.controlsource = "MyCursor1.mem2" >endif >thisform.refresh() >erase (lcMyTextFile) >erase (lcOtherTxtFile)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform