fix date column in doc grid view
This commit is contained in:
parent
c3da7697cc
commit
92e408b060
@ -312,6 +312,7 @@ Public Class ClassDOC_SEARCH
|
||||
For Each rw As DataRow In DT_TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Rows
|
||||
Dim ColumnName = rw.Item("HEADER_CAPTION")
|
||||
Dim Width = rw.Item("WIDTH")
|
||||
Dim oColumnType = rw.Item("TYPE_ID")
|
||||
If IsNothing(Width) Or IsDBNull(Width) Then
|
||||
Width = 200
|
||||
End If
|
||||
@ -321,7 +322,15 @@ Public Class ClassDOC_SEARCH
|
||||
_step = "7.2"
|
||||
'Die Spalte definieren
|
||||
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
|
||||
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)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user