From 46b120d3bd31f1bc5bc1283d5556d4895288ab70 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Tue, 12 Aug 2025 10:22:54 +0200 Subject: [PATCH] =?UTF-8?q?Absturz=20bei=20Lookup=C3=A4nderungen=20wird=20?= =?UTF-8?q?abgefangen=20-=20frmLookupGrid?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Controls.LookupGrid/My Project/AssemblyInfo.vb | 4 ++-- Controls.LookupGrid/frmLookupGrid.vb | 14 ++++++++++---- 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/Controls.LookupGrid/My Project/AssemblyInfo.vb b/Controls.LookupGrid/My Project/AssemblyInfo.vb index 3c468bb3..24865c0c 100644 --- a/Controls.LookupGrid/My Project/AssemblyInfo.vb +++ b/Controls.LookupGrid/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Controls.LookupGrid/frmLookupGrid.vb b/Controls.LookupGrid/frmLookupGrid.vb index 46f22a8d..ffad6cc9 100644 --- a/Controls.LookupGrid/frmLookupGrid.vb +++ b/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()