This commit is contained in:
SchreiberM
2016-08-09 10:33:29 +02:00
parent b5719d5ee3
commit 75ab06ce6c
3 changed files with 5 additions and 49 deletions

View File

@@ -3092,14 +3092,14 @@ Public Class frmConstructor_Main
Clear_Grid_View()
'Databinding Neu
Dim tblReady1 As DataTable = DT_SELECTION.Clone()
Dim tbltemp As DataTable = DT_SELECTION.Clone()
For Each col As String In listdate
Dim colDate As DataColumn = tblReady1.Columns(col)
Dim colDate As DataColumn = tbltemp.Columns(col)
colDate.DataType = GetType(Date)
Next
Try
tblReady1.Load(DT_SELECTION.CreateDataReader)
DT_SELECTION = tblReady1
tbltemp.Load(DT_SELECTION.CreateDataReader)
DT_SELECTION = tbltemp
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not load converted datatable: " & ex.Message, False)
'Tabelle wird ohne Datekonvertierung geladen
@@ -6055,10 +6055,4 @@ Public Class frmConstructor_Main
End Try
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
grvwGrid.Columns("Start_Date").DisplayFormat.FormatType = FormatType.DateTime
grvwGrid.Columns("Start_Date").DisplayFormat.FormatString = USER_DATE_FORMAT
End Sub
End Class