Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DynamicBackColor in grid
Message
De
26/01/2001 16:48:50
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00469202
Message ID:
00469249
Vues:
23
I didn't mention this, but I have TWO grids in ONE form. Does that have anything to do with that? Here it is again...

--Grid1 Init--
*ThisForm.SetAll("DynamicBackColor", ;
* "IIF(RECNO('authtype') =ThisForm.nGridRecno, RGB(193,255,255),"+ ;
* "RGB(255,255,255))", "Column")
ThisForm.SetAll("DynamicBackColor", ;
"IIF(RECNO('authtype') # ThisForm.nGridRecno, RGB(255,255,255),"+ ;
"RGB(193,255,255))", "Column")

--Grid1 AfterRowColChange--
LPARAMETERS nColIndex
ThisForm.nGridRecno = RECNO("authtype")
This.Refresh()

--Grid1 Refresh--
DODEFAULT()

now for the 2nd grid on the same form...

--Grid2 Init--
*ThisForm.SetAll("DynamicBackColor", ;
* "IIF(RECNO('org') =ThisForm.nGridRecno, RGB(193,255,255),"+ ;
* "RGB(255,255,255))", "Column")
ThisForm.SetAll("DynamicBackColor", ;
"IIF(RECNO('org') # ThisForm.nGridRecno, RGB(255,255,255),"+ ;
"RGB(193,255,255))", "Column")

--Grid2 AfterRowColChange--
LPARAMETERS nColIndex
ThisForm.nGridRecno = RECNO("org")
This.Refresh()

--Grid2 Refresh--
DODEFAULT()
Today is tomorrow's yesterday.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform