AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix date column in doc grid view

Browse Source
This commit is contained in:
Jonathan Jenne 2020-01-16 13:22:56 +01:00
parent c3da7697cc
commit 92e408b060
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organizer/ClassDOC_SEARCH.vb
View File

@ -312,6 +312,7 @@ Public Class ClassDOC_SEARCH
For Each rw As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows For Each rw As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows
Dim ColumnName = rw.Item("HEADER_CAPTION") Dim ColumnName = rw.Item("HEADER_CAPTION")
Dim Width = rw.Item("WIDTH") Dim Width = rw.Item("WIDTH")
Dim oColumnType = rw.Item("TYPE_ID")
If IsNothing(Width) Or IsDBNull(Width) Then If IsNothing(Width) Or IsDBNull(Width) Then
Width = 200 Width = 200
End If End If
@ -321,7 +322,15 @@ Public Class ClassDOC_SEARCH
_step = "7.2" _step = "7.2"
'Die Spalte definieren 'Die Spalte definieren
Try Try
DTGrid.Columns.Add(ColumnName) Dim oColumn As New DataColumn() With {
.ColumnName = ColumnName
}
If oColumnType = 4 Then
oColumn.DataType = GetType(DateTime)
End If
DTGrid.Columns.Add(oColumn)
ColCount += 1 ColCount += 1
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message) ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)