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

MS3

Browse Source
This commit is contained in:
SchreiberM
2016-08-09 10:50:34 +02:00
parent 75ab06ce6c
commit 01d404dab9
1 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -3067,8 +3067,8 @@ Public Class frmConstructor_Main
CreateTile() CreateTile()
Else Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen ' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
Dim sqldate As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID & " GROUP BY CONTROL_COLUMN" Dim sqldate As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck) Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqldate) Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqldate)
Dim listcheck As New List(Of String) Dim listcheck As New List(Of String)
@@ -3095,7 +3095,16 @@ Public Class frmConstructor_Main
Dim tbltemp As DataTable = DT_SELECTION.Clone() Dim tbltemp As DataTable = DT_SELECTION.Clone()
For Each col As String In listdate For Each col As String In listdate
Dim colDate As DataColumn = tbltemp.Columns(col) Dim colDate As DataColumn = tbltemp.Columns(col)
colDate.DataType = GetType(Date) If Not IsNothing(colDate) Then
colDate.DataType = GetType(Date)
End If
Next
For Each col1 As String In listcheck
Dim collist As DataColumn = tbltemp.Columns(col1)
If Not IsNothing(collist) Then
collist.DataType = GetType(Boolean)
End If
Next Next
Try Try
tbltemp.Load(DT_SELECTION.CreateDataReader) tbltemp.Load(DT_SELECTION.CreateDataReader)
@@ -3118,15 +3127,14 @@ Public Class frmConstructor_Main
Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit() Dim CheckBoxEditorForDisplay = New RepositoryItemCheckEdit()
CheckBoxEditorForDisplay.ValueChecked = 1 CheckBoxEditorForDisplay.ValueChecked = 1
CheckBoxEditorForDisplay.ValueUnchecked = 0 CheckBoxEditorForDisplay.ValueUnchecked = 0
'Dim DateEditorForDisplay = New RepositoryItemDateEdit()
'DateEditorForDisplay.DisplayFormat = USER_DATE_FORMAT
' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen ' Alle Checkbox Spalten durchgehen und CheckBoxEditor zuweisen
For Each col As String In listcheck 'For Each col As String In listcheck
grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay) ' grvwGrid.GridControl.RepositoryItems.Add(CheckBoxEditorForDisplay)
If Not IsNothing(grvwGrid.Columns(col)) Then ' If Not IsNothing(grvwGrid.Columns(col)) Then
grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay ' grvwGrid.Columns(col).ColumnEdit = CheckBoxEditorForDisplay
End If ' End If
Next 'Next
' Alle Date Spalten durchgehen ' Alle Date Spalten durchgehen
For Each col As String In listdate For Each col As String In listdate
Dim colDate = grvwGrid.Columns(col) Dim colDate = grvwGrid.Columns(col)