jj 17.11 improve column filtering

This commit is contained in:
JenneJ 2016-11-17 12:23:31 +01:00
parent 1184ee0043
commit fa59a28683

View File

@ -3,6 +3,7 @@ Imports DevExpress.XtraBars.Navigation
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraGrid.Views.Grid
@ -3016,15 +3017,15 @@ Public Class frmConstructor_Main
' Alle Date Spalten durchgehen
For Each col As String In listdate
Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit
date_edit.Mask.MaskType = Mask.MaskType.DateTime
date_edit.Mask.EditMask = CURRENT_DATE_FORMAT
date_edit.Mask.UseMaskAsDisplayFormat = True
grvwGrid.Columns(col).ColumnEdit = date_edit
'dateedit.DisplayFormat.FormatType = FormatType.DateTime
'dateedit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
'grvwGrid.Columns(col).DisplayFormat.FormatType = FormatType.DateTime
'grvwGrid.Columns(col).DisplayFormat.FormatString = CURRENT_DATE_FORMAT
Dim date_column As GridColumn = grvwGrid.Columns(col)
date_column.DisplayFormat.FormatType = FormatType.DateTime
date_column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
date_column.OptionsFilter.FilterPopupMode = FilterPopupMode.Default
date_column.OptionsFilter.AutoFilterCondition = AutoFilterCondition.Contains
date_column.ColumnEdit = date_edit
date_column.FilterMode = ColumnFilterMode.DisplayText
Next
Try
grvwGrid.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime