>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 >