Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem with DYNAMICCURRENTCONTROL
Message
 
 
À
27/04/2015 10:59:03
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01619171
Message ID:
01619172
Vues:
52
If you're using VFP9, I suggest to switch to ICASE in your code - it will be simpler. Also, is it possible to hit the last case?

Finally, there is an alternative solution that may be simpler and doesn't involve the DynamicCurrentControl. Search here for

"Fabio Images Grid" to get to it.

>Hi @all,
>
>we have a Grid that shows Files; one Column shows an Icon dependent of the File Extension. The different imageControls are added to these column an shown by
>DYNAMICCURRENTCONTROL.
>
>Sometimes we got the Error:
>
>Expression is invalid. Use a valid expression for DYNAMICCURRENTCONTROL property.
>
>The Expression is always valid. Where does this error came from? No Errorhandler works... What can i do to
>
>
>with this
>		.AddColumn(this.ColumnCount + 1)
>
>		.Columns[this.ColumnCount].Header1.Caption = goTranslator.Translate("Art")
>		.Columns[this.ColumnCount].Header1.alignment = 2
>
>		.Columns[this.ColumnCount].Header1.ToolTipText = 'Art des Dokuments'
>		.Columns[this.ColumnCount].ToolTipText = 'Art des Dokuments'
>		
>		
>		.Columns[this.ColumnCount].Sparse = .f.
>		.Columns[this.ColumnCount].Alignment = 2
>		.Columns[this.ColumnCount].Width = 30
>				
>		.Columns[this.ColumnCount].inputmask= "!!!"
>		
>		* Excel
>		.Columns[this.ColumnCount].NewObject("imgExcel", "GridImage", "images")
>		.Columns[this.ColumnCount].imgExcel.Picture = "pictures\Excel.bmp"
>		.Columns[this.ColumnCount].imgExcel.BackStyle = 0
>		
>		* Word.
>		.Columns[this.ColumnCount].NewObject("imgWord", "GridImage", "images")
>		.Columns[this.ColumnCount].imgWord.Picture = "pictures\word.bmp"
>		.Columns[this.ColumnCount].imgWord.BackStyle = 0
>		
>		* PDF
>		.Columns[this.ColumnCount].NewObject("imgPDF", "GridImage", "images")
>		.Columns[this.ColumnCount].imgPDF.Picture = "pictures\PDF.bmp"
>		.Columns[this.ColumnCount].imgPDF.BackStyle = 0
>		
>		.Columns[this.ColumnCount].NewObject("imgMSG", "GridImage", "images")
>		.Columns[this.ColumnCount].imgMSG.Picture = "pictures\mail216x16.bmp"
>		.Columns[this.ColumnCount].imgMSG.BackStyle = 0
>		
>		.Columns[this.ColumnCount].DynamicCurrentControl = "iif(vwDokumente2.dokArt = 'XLS', 'imgExcel', iif(vwDokumente2.dokArt='DOC', 'imgWord', iif(vwDokumente2.dokArt='PDF', 'imgPDF', iif(vwDokumente2.dokArt='MSG','imgMSG','Text1'))))"
>
>		.Columns[this.ColumnCount].ControlSource = "dokArt"
>
>endwith
>
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