JJ 28.04.16

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -3451,14 +3451,16 @@ Public Class frmConstructor_Main
             elapsed = sw.Elapsed.TotalSeconds
             If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
             Dim DTGrid As New DataTable
+
+            Dim stg As String
+            If USER_LANGUAGE = "de-DE" Then
+                stg = "windream-Dateien"
+            Else
+                stg = "windream-files"
+            End If
+            TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"
+
             If windreamSucheErgebnisse.Count > 0 Then 'Es gibt Suchergebnisse
-                Dim stg As String
-                If USER_LANGUAGE = "de-DE" Then
-                    stg = "windream-Dateien"
-                Else
-                    stg = "windream-files"
-                End If
-                TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"
                 Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 2"
                 Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET RESULTLIST KONFIG")
                 Dim ColArray As New List(Of String)
@@ -3475,6 +3477,8 @@ Public Class frmConstructor_Main
                     colPath.ColumnName = "FULLPATH"
                     colPath.Caption = "Fullpath"
                     DTGrid.Columns.Add(colPath)
+                    'GridViewDoc_Search.Columns.
+                    'TODO: colPath ausblenden
 
                     If Not DT Is Nothing And DT.Rows.Count = 1 Then
                         Dim ColCount As Integer = 1
@@ -3563,6 +3567,11 @@ Public Class frmConstructor_Main
                                     Else
                                         'windream-Indexwert holen
                                         idxvalue = dok.GetVariableValue(Indexname)
+
+                                        If IsNothing(idxvalue) Then
+                                            idxvalue = "-"
+                                        End If
+
                                     End If
                                     If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
                                 Catch ex As Exception
@@ -3586,9 +3595,10 @@ Public Class frmConstructor_Main
                 End If
                 If DTGrid.Rows.Count > 0 Then
                     GridControlDocSearch.DataSource = DTGrid
-                    GridViewDoc_Search.Columns.Item(0).MaxWidth = 24
-                    GridViewDoc_Search.Columns.Item(0).MinWidth = 24
-                    grvwGrid.Columns.Item(1).Visible = False
+                    ' Größe der Icon Column anpassen
+                    GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
+                    GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
+                    GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
                 End If
             Else
                 Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"