Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Modal form becomes non-responsive
Message
From
12/06/2007 12:08:35
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01232302
Message ID:
01232317
Views:
25
>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.

Is form becoming irresponsive when you start it, or after some user interactions later?
Edward Pikman
Independent Consultant
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform