small tweaks

MultiTool.Form/frmRowEditor.vb

@@ -12,7 +12,6 @@ Imports DevExpress.XtraEditors.Controls
 Imports DevExpress.XtraGrid.Views.Grid
 
 Public Class frmRowEditor
-    Private ReadOnly LogConfig As LogConfig
     Private ReadOnly Logger As Logger
     Private ReadOnly FormHelper As FormHelper
 
@@ -44,7 +43,6 @@ Public Class frmRowEditor
     Public Sub New(pLogConfig As LogConfig, pColumns As List(Of String), pDocumentRow As DocumentRow, pMandator As Mandator, pWinline As WinlineData, pTable As Schema.Table)
         InitializeComponent()
 
-        LogConfig = pLogConfig
         Logger = pLogConfig.GetLogger()
         FormHelper = New FormHelper(pLogConfig)
 
@@ -95,41 +93,46 @@ Public Class frmRowEditor
     End Sub
 
     Private Sub frmRowEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Dim oDict = New Dictionary(Of String, FieldValue)
+        Try
+            Dim oDict = New Dictionary(Of String, FieldValue)
 
-        For Each oColumnName As String In _Columns
-            Dim oField = _DocumentRow.Fields.
-                Where(Function(f) f.Key = oColumnName).
-                SingleOrDefault()
+            For Each oColumnName As String In _Columns
+                Dim oField = _DocumentRow.Fields.
+                    Where(Function(f) f.Key = oColumnName).
+                    SingleOrDefault()
 
-            Dim oColumn = _Table.Columns.
-                Where(Function(c) c.Name = oColumnName).
-                SingleOrDefault()
+                Dim oColumn = _Table.Columns.
+                    Where(Function(c) c.Name = oColumnName).
+                    SingleOrDefault()
 
-            ' Only Show Columns that are set to visible
-            If oColumn?.Config?.IsVisible = False Then
-                Continue For
-            End If
+                ' Only Show Columns that are set to visible
+                If oColumn?.Config?.IsVisible = False Then
+                    Continue For
+                End If
 
-            If oField.Value Is Nothing Then
-                oDict.Add(oColumnName, New FieldValue())
-            Else
-                oDict.Add(oColumnName, oField.Value)
-            End If
+                If oField.Value Is Nothing Then
+                    oDict.Add(oColumnName, New FieldValue())
+                Else
+                    oDict.Add(oColumnName, oField.Value)
+                End If
 
-        Next
+            Next
 
-        _DataTable.Columns.Clear()
-        _DataTable.Columns.Add(COL_KEY)
-        _DataTable.Columns.Add(COL_VALUE_ORIGINAL)
-        _DataTable.Columns.Add(COL_VALUE_EXTERNAL)
-        _DataTable.Columns.Add(COL_VALUE_FINAL)
+            _DataTable.Columns.Clear()
+            _DataTable.Columns.Add(COL_KEY)
+            _DataTable.Columns.Add(COL_VALUE_ORIGINAL)
+            _DataTable.Columns.Add(COL_VALUE_EXTERNAL)
+            _DataTable.Columns.Add(COL_VALUE_FINAL)
 
-        For Each oKV In oDict
-            _DataTable.Rows.Add(oKV.Key, oKV.Value.Original, oKV.Value.External, oKV.Value.Final)
-        Next
+            For Each oKV In oDict
+                _DataTable.Rows.Add(oKV.Key, oKV.Value.Original, oKV.Value.External, oKV.Value.Final)
+            Next
 
-        GridControl1.DataSource = _DataTable
+            GridControl1.DataSource = _DataTable
+        Catch ex As Exception
+            FormHelper.ShowError(ex, My.Resources.frmShared.Laden_des_Formulars)
+
+        End Try
     End Sub
 
     Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick