Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Execute the parent class method, but not a grandparent
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00535248
Message ID:
00535366
Vues:
18
>
>LOCAL llHasNavStand, luResult
>
>llHasNavStand=thisform.hasnavstand
>thisform.hasnavstand=.F.
>luResult=DODEFAULT()
>thisform.hasnavstand=llHasNavStand
>
>RETURN luResult
>
>
>hth,

Thanks a lot, Frank, I haven't thought about it. Actually, I decided to not use default behavior of the parent class too, because it seems to cause some other strange effects. So, I just commented out dodefault(nColIndex) statement at all.
This seems to resolve couple of undesired effects, though might introduce few new. Anyway, this is the current code in grid AfterRowColChange event:
********************************************************************
*  Description.......: grdAddrStd.AfterRowColChange
*  Calling Samples...:
*  Parameter List....:
*  Created by........:
*  Modified by.......: Nadya Nosonovsky 07/25/2001 04:33:58 PM
********************************************************************
lparameters nColIndex
thisform.lockscreen=.t.
local lnReccount, lnRecno
lnReccount=reccount('BldMstr')
lnRecno=recno('BldMstr')
with thisform
	if this.nCurRec<>m.lnRecno	    
		.NavStand.navupdate()		
		.edtNotes.refresh()		
		if .lFieldChanged and .lOkChangeStatus    		
		   .lockscreen=.t.
		   goto this.nCurRec in BldMstr
		   replace (thisform.AddrField) with '6', ModiType with 'C' && Manually-Resolved		   
		   goto m.lnRecno in BldMstr		   
		   this.refresh()
		endif
		if .ProcType='prclproc' and .SubProc='ppsitus' and not .lShowStateAddress
			.RequeryGridSources()
		endif
	endif
	store .f. to .lFieldChanged, .lOkChangeStatus
	this.statusbartext=space(20)+"Record "+ transform(m.lnRecno)+" of "+ ;
		transform(m.lnReccount)+ " in BldMstr (Total number of records to process " + ;
		transform(.nRecords) + ")"
endwith
*dodefault(m.nColIndex)
this.nCurRec=m.lnRecno
thisform.lockscreen=.f.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform