Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Modal form becomes non-responsive
Message
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Modal form becomes non-responsive
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01232302
Message ID:
01232302
Vues:
69
Hi everybody,

We found a strange intermittent problem, which I'm not sure how to tackle.

I have the following forms: Search -> Search Results -> Ticket all modeless.

In the ticket form there is a button to pick up a problem (Modal form).

This form has only a grid on it + new timer class for displaying tooltips in grids (great class by Igor Korolev I adapted recently - don't think it has any bearance to the problem).

Now, the form with a grid would respond OK and then it would suddenly stop and appear as disabled. The user can click on Exit button on the toolbar, then nothing happens, but the form starts to respond.

I'm able to replicate this problem in the test environment.

I'm not sure how should I debug it and find the cause.

I tried to make this form Modeless, but then it would not return selected problem.

Here is the beginning of the code to run this form:
thisform.cmdResolutions.Visible = .f.
THISFORM.edtSelectedProblem.VALUE = ""
PRIVATE poParamObject
poParamObject = CREATEOBJECT('oParameter')
poParamObject.iProblem_Code = 0
poParamObject.iResolution_Code = 0
LOCAL lnSoftware_Code, lnHardware_Code, lnOther_Code
lnSoftware_Code = EVL(this.parent.cboSoftware.Value, -1)
lnHardware_Code = EVL(this.parent.cboHardware.Value, -1)
lnOther_Code = EVL(this.parent.cboOther.Value, - 1)

SELECT LEFT(Problems.mDescription,200) as cDescription, Problems.iProblem_Code, ;
NVL(Software.cDescription, SPACE(30)) as cSoftware, ;
NVL(Hardware.cDescription, SPACE(30)) as cHardware, ;
NVL(Other.cDescription, SPACE(30)) as cOther ;
from Problems ;
left join Software on Problems.iSoftware_Code = Software.iSoftware_Code AND Software.iActive_Flag = 1 ;
left join Hardware on Problems.iHardware_Code = Hardware.iHardware_Code AND Hardware.iActive_Flag = 1;
LEFT JOIN Other ON Problems.iOther_Code = Other.iOther_Code AND Other.iActive_Flag = 1 ;
WHERE (Problems.iSoftware_Code = m.lnSoftware_Code OR ;
Problems.iHardware_Code = m.lnHardware_Code OR ;
Problems.iOther_Code = m.lnOther_Code) ;
ORDER BY 1 into cursor curPickProblems readwrite
USE IN SELECT('Problems')

DoForm('frm_ProblemPicker', m.poParamObject)
Do you have some ideas how can I figure the out the problem and solve it?

Thanks a lot in advance.
If it's not broken, fix it until it is.


My Blog
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform