MS WMsharedrive Integration

app/DD-Record-Organizer/Classes/ClassGridFormatter.vb

@@ -89,44 +89,49 @@ Public Class ClassGridFormatter
         End Function
 
         Public Sub FormatGridView(gridView As GridView)
-            If IsNothing(gridView.GridControl.DataSource) Then
-                Throw New Exception("Error in FormatGridView: DataSource is Empty!")
-            End If
-
-            ' Editoren zum Grid hinzufügen
-            gridView.GridControl.RepositoryItems.AddRange({checkboxEdit, dateEdit})
-
-            For Each columnName As String In Me.dateColumns
-                Dim column As GridColumn = gridView.Columns(columnName)
-
-                If Not IsNothing(column) Then
-                    column.DisplayFormat.FormatType = FormatType.DateTime
-                    column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
-                    column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
-                    column.FilterMode = ColumnFilterMode.Value ' was DisplayText
-                    column.ColumnEdit = dateEdit
+            Try
+                If IsNothing(gridView.GridControl.DataSource) Then
+                    Throw New Exception("Error in FormatGridView: DataSource is Empty!")
                 End If
-            Next
 
-            For Each columnName As String In Me.checkboxColumns
-                Dim column As GridColumn = gridView.Columns(columnName)
+                ' Editoren zum Grid hinzufügen
+                gridView.GridControl.RepositoryItems.AddRange({checkboxEdit, dateEdit})
 
-                If Not IsNothing(column) Then
-                    column.ColumnEdit = checkboxEdit
-                End If
-            Next
+                For Each columnName As String In Me.dateColumns
+                    Dim column As GridColumn = gridView.Columns(columnName)
 
-            currencyColumns = GetCurrencyColumns()
+                    If Not IsNothing(column) Then
+                        column.DisplayFormat.FormatType = FormatType.DateTime
+                        column.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
+                        column.OptionsFilter.FilterPopupMode = FilterPopupMode.Date
+                        column.FilterMode = ColumnFilterMode.Value ' was DisplayText
+                        column.ColumnEdit = dateEdit
+                    End If
+                Next
 
-            For Each columnName As String In currencyColumns
-                Dim column As GridColumn = gridView.Columns(columnName)
+                For Each columnName As String In Me.checkboxColumns
+                    Dim column As GridColumn = gridView.Columns(columnName)
+
+                    If Not IsNothing(column) Then
+                        column.ColumnEdit = checkboxEdit
+                    End If
+                Next
+
+                currencyColumns = GetCurrencyColumns()
+
+                For Each columnName As String In currencyColumns
+                    Dim column As GridColumn = gridView.Columns(columnName)
+
+                    If Not IsNothing(column) Then
+                        column.DisplayFormat.FormatType = FormatType.Numeric
+                        column.DisplayFormat.FormatString = "C"
+                        column.DisplayFormat.Format = New CurrencyFormatter()
+                    End If
+                Next
+            Catch ex As Exception
+                LOGGER.Warn("Unexpected Error in FormatGridView: " & ex.Message)
+            End Try
 
-                If Not IsNothing(column) Then
-                    column.DisplayFormat.FormatType = FormatType.Numeric
-                    column.DisplayFormat.FormatString = "C"
-                    column.DisplayFormat.Format = New CurrencyFormatter()
-                End If
-            Next
 
         End Sub