jj 14.12 ClassGridFormatter
This commit is contained in:
@@ -3096,29 +3096,11 @@ Public Class frmConstructor_Main
|
||||
'Grid leeren
|
||||
Clear_Grid_View()
|
||||
|
||||
'Vorbereiten der Arrays
|
||||
Dim listcheck As List(Of String) = ClassHelper.Return_listcheck(ENTITY_ID)
|
||||
Dim listdate As List(Of String) = ClassHelper.Return_listdate(ENTITY_ID)
|
||||
Dim DT_RESULT As DataTable = ClassHelper.Format_GridColumns(DT_SELECTION, _ENTITYSQL, listcheck, listdate)
|
||||
Dim gridFormatter As New ClassGridFormatter.ConstructorView(DT_SELECTION, ENTITY_ID)
|
||||
Dim DT_RESULT As DataTable = gridFormatter.FormatDatatable()
|
||||
GridControlMain.DataSource = DT_RESULT
|
||||
gridFormatter.FormatGridView(grvwGrid)
|
||||
|
||||
' Alle Date Spalten durchgehen
|
||||
For Each col As String In listdate
|
||||
Dim date_edit As New DevExpress.XtraEditors.Repository.RepositoryItemTimeEdit
|
||||
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.Date
|
||||
date_column.ColumnEdit = date_edit
|
||||
date_column.FilterMode = ColumnFilterMode.Value ' was DisplayText
|
||||
|
||||
date_edit.DisplayFormat.FormatType = FormatType.DateTime
|
||||
date_edit.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
|
||||
date_edit.Mask.MaskType = Mask.MaskType.DateTime
|
||||
date_edit.Mask.EditMask = CURRENT_DATE_FORMAT
|
||||
date_edit.Mask.UseMaskAsDisplayFormat = True
|
||||
|
||||
Next
|
||||
Try
|
||||
grvwGrid.Columns("AddedWhen").DisplayFormat.FormatType = FormatType.DateTime
|
||||
grvwGrid.Columns("AddedWhen").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
|
||||
@@ -6416,6 +6398,6 @@ Public Class frmConstructor_Main
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user