Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Grid on bizObjMaintenanceForm not enabling
Message
De
14/04/2001 11:28:36
Larry Long
ProgRes (Programming Resources)
Georgie, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Titre:
Grid on bizObjMaintenanceForm not enabling
Divers
Thread ID:
00495540
Message ID:
00495540
Vues:
43
I created a class just like the one in the JumpStart docs.

I modified the view to be parameterized, so that all records are not retrieved upon init.

I added a textbox (cTextBoxl class) to page 1, for the user to input the a client's name to search on.

I set up the view's parameter in the bizObj PostInitHook method as shown below...
******************
dodefault()

*If value entered="*" fetch all records
*If no value entered fetch no record

This.AddViewParameter('vp_Client','iif(ALLTRIM(Thisform.pgfbizobj.Page1.cTextboxl1.Textbox.value)="*","",iif(not empty(Thisform.pgfbizobj.Page1.cTextboxl1.Textbox.value),ALLTRIM(Thisform.pgfbizobj.Page1.cTextboxl1.Textbox.value),"***"))')

*If checked, fetch records that are similar

This.AddViewParameter('vp_sxClient', 'iif(not empty(Thisform.pgfbizobj.Page1.SoundsLikeClient.CheckBox.Value),LEFT(soundex(Thisform.pgfbizobj.Page1.cTextboxl1.Textbox.value),3),"***"))')*******************

When the form initializes, no records are found and the grid is disabled...OK so far.

The textbox's valid method is shown below...
**************
WITH THISFORM
WITH .pgfbizobj.Page1.ClientsObj
.REQUERY()
ENDWITH
.REFRESH
ENDWITH
*************

Now here's the rub...

If I enter a value for the client the view requeries and data shows in the grid, but it is disabled.

I am pretty sure that the bizObjects.OnEmptyBizObj is disabling the grid in the forms init.

How do I re-enable it after I requery and records are retrieved?
L.A.Long
ProgRes
lalong1@charter.net
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform