Absturz bei Lookupänderungen wird abgefangen - frmLookupGrid

Controls.LookupGrid/frmLookupGrid.vb

@@ -98,10 +98,16 @@ Public Class frmLookupGrid
         _View.BestFitColumns()
 
         ' Datenspalte zusätzlich in der Breite anpassen
-        If _View.Columns.Count = 0 Then
-            Dim oDataColumn As GridColumn = _View.Columns.Item(_DataColumn)
-            oDataColumn.BestFit()
-        End If
+        Try
+            If _View.Columns.Count = 0 Then
+                Dim oDataColumn As GridColumn = _View.Columns.Item(_DataColumn)
+                oDataColumn.BestFit()
+            End If
+        Catch ex As ArgumentOutOfRangeException
+
+        Catch ex As Exception
+
+        End Try
     End Sub
     Private Sub frmLookupGrid_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         BringToFront()