Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
DynamicBackColor not working
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Divers
Thread ID:
01357721
Message ID:
01357726
Vues:
20
>>The records do not change color in the grid, though the cursor does have those values in the GroupHeading field.
>>
>>	.Fm_CONTAINER1.grdWorkListXMLCursor.RecordSource = ''
>>	.Fm_CONTAINER1.grdWorkListXMLCursor.RecordSource = 'WorkListXMLCursor'
>>	THISFORM.Fm_Container1.grdWorkListXMLCursor.SetAll("DynamicBackColor", ;
>>		"IIF(ALLTRIM(WorkListXMLCursor.GroupHeading)='Receiver', RGB(192, 241, 190), ;
>>		IIF(ALLTRIM(WorkListXMLCursor.GroupHeading)='Subscriber' OR ;
>>			ALLTRIM(WorkListXMLCursor.GroupHeading)='Dependent', RGB(211, 210, 240), ;
>>		RGB(249, 223, 223)))", "Column")
>>	.Fm_CONTAINER1.grdWorkListXMLCursor.Refresh
>>
>
>How about:
>
>TEXT TO lcDynBackColor NOSHOW PRETEXT 15
>     ICASE(UPPER(ALLTRIM(WorkListXMLCursor.GroupHeading)) == [RECEIVER]                     ,  RGB(192, 241, 190),
>           INLIST(UPPER(ALLTRIM(WorkListXMLCursor.GroupHeading)), [SUBSCRIBER], [DEPENDENT]),  RGB(211, 210, 240),
>           RGB(249, 223, 223))
>ENDTEXT
>THISFORM.Fm_Container1.grdWorkListXMLCursor.SetAll([DynamicBackColor], lcDynBackColor, [Column])
>THISFORM.Fm_Container1.grdWorkListXMLCursor.Refresh()
>
Yes, looks much more readable now.
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