Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DynamicBackColor in grid
Message
From
26/01/2001 16:48:50
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, United States
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00469202
Message ID:
00469249
Views:
22
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform