Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
#define
Message
De
17/04/2018 12:30:18
 
 
À
17/04/2018 12:08:56
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Database:
Visual FoxPro
Divers
Thread ID:
01659466
Message ID:
01659472
Vues:
61
>>Hi,
>>
>>I would like to make use of constants to set my grids colours, have therefore issued :
>>
>>
>>#DEFINE ACTIVEROWFORECOL		16711680		&&KOBALT blue
>>#DEFINE ROWFORECOL			0 			&&black
>>This.SetAll( 'DynamicForeColor', ;
>>	'IIF( RECNO( This.RecordSource ) = This.nRecNo, ACTIVEROWFORECOL, ROWFORECOL )', 'COLUMN' )
>>
>>
>>errors
>>
>>wheras
>>
>>This.SetAll( 'DynamicForeColor', ;
>>	'IIF( RECNO( This.RecordSource ) = This.nRecNo, 16711680, 0 )', 'COLUMN' )
>>
>>
>>works smouthly
>>How should I correct my statement using #DEFINE?
>>
>>Rgds,
>>
>>Koen
>
>>Hi,
>>
>>I would like to make use of constants to set my grids colours, have therefore issued :
>>
>>
>>#DEFINE ACTIVEROWFORECOL		16711680		&&KOBALT blue
>>#DEFINE ROWFORECOL			0 			&&black
>>This.SetAll( 'DynamicForeColor', ;
>>	'IIF( RECNO( This.RecordSource ) = This.nRecNo, ACTIVEROWFORECOL, ROWFORECOL )', 'COLUMN' )
>>
>>
>>errors
>>
>>wheras
>>
>>This.SetAll( 'DynamicForeColor', ;
>>	'IIF( RECNO( This.RecordSource ) = This.nRecNo, 16711680, 0 )', 'COLUMN' )
>>
>>
>>works smouthly
>>How should I correct my statement using #DEFINE?
>>
>>Rgds,
>>
>>Koen
>
>#DEFINEd constants are not recognized as such when inside literal strings.
>
>
>#DEFINE ACTIVEROWFORECOL		"16711680"		&&KOBALT blue
>#DEFINE ROWFORECOL			"0" 			&&black
>This.SetAll( 'DynamicForeColor', ;
>	'IIF( RECNO( This.RecordSource ) = This.nRecNo, ' + ACTIVEROWFORECOL + ', ' + ROWFORECOL + ')', 'COLUMN' )
>
Antonio!

Thanks works like a charm.

Rgds,
Koen
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform