MS_2911

app/DD-Record-Organiser/ClassDOC_SEARCH.vb

@@ -194,6 +194,20 @@ Public Class ClassDOC_SEARCH
             sw.Start()
             Dim DTGrid As New DataTable
             Dim ColArrayDEFINITION As New List(Of String)
+            Dim listcheck As New List(Of String)
+            For Each row As DataRow In DT_WINDREAM_RESULTLIST.Rows
+                Dim type = row.Item("TYPE_ID")
+                Dim COLNAME = row.Item("HEADER_CAPTION")
+                If type = 2 Then
+                    listcheck.Add(COLNAME)
+                End If
+            Next
+            For Each col1 As String In listcheck
+                Dim collist As DataColumn = DT_FILE_RESULT.Columns(col1)
+                If Not IsNothing(collist) Then
+                    collist.DataType = GetType(Boolean)
+                End If
+            Next
             Try
                 'Die Icon Colum erstellen und konfigurieren
                 Dim colIcon As New System.Data.DataColumn()
@@ -248,6 +262,14 @@ Public Class ClassDOC_SEARCH
             sw.Start()
             COL_ARRAY_RESULTLIST = ColArrayDEFINITION
 
+            For Each col1 As String In listcheck
+                Dim collist As DataColumn = DTGrid.Columns(col1)
+                If Not IsNothing(collist) Then
+                    collist.DataType = GetType(Boolean)
+                End If
+            Next
+
+
             For Each FILE_ROW As DataRow In DT_FILE_RESULT.Rows
                 Dim fullpath = FILE_ROW.Item("FULL_FILENAME")
                 Dim objecttype = FILE_ROW.Item("OBJECTTYPE")