AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Absturz bei Lookupänderungen wird abgefangen - frmLookupGrid

Browse Source
This commit is contained in:
OlgunR 2025-08-12 10:22:54 +02:00
parent 9c4a7057e5
commit 46b120d3bd
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Controls.LookupGrid/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.4.2.0")> <Assembly: AssemblyVersion("3.4.3.0")>
<Assembly: AssemblyFileVersion("3.4.2.0")> <Assembly: AssemblyFileVersion("3.4.3.0")>

14
Controls.LookupGrid/frmLookupGrid.vb
View File

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