From 8b999ee7cb9e643af52525f5071f73b8d23bda9e Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Fri, 10 Jun 2016 08:49:06 +0200 Subject: [PATCH] MS --- app/DD-Record-Organiser/ClassControlValues.vb | 9 ++++++--- app/DD-Record-Organiser/frmConstructor_Main.vb | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb index 37f80eb..9314a1b 100644 --- a/app/DD-Record-Organiser/ClassControlValues.vb +++ b/app/DD-Record-Organiser/ClassControlValues.vb @@ -683,10 +683,13 @@ Public Class ClassControlValues Dim controlId As Integer = row.Item("CONTROL_ID") Dim controlName As String = row.Item("CONTROL_NAME") - Dim control As Control = controls.Find(controlName, False)(0) - - LoadDefaultValue(controlId, RecordID, control, parentRecordID, EntityID, defaultValue) + Try + Dim control As Control = controls.Find(controlName, False)(0) + LoadDefaultValue(controlId, RecordID, Control, parentRecordID, EntityID, defaultValue) + Catch ex As Exception + ClassLogger.Add("Unexpected Error in getting default value for control '" & controlName & " - " & ex.Message, True) + End Try Next diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 3addfe3..47119eb 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -3815,7 +3815,7 @@ Public Class frmConstructor_Main End If Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName)) If Not IsNothing(Width) And Not IsDBNull(Width) Then - GridViewDoc_Search.Columns.Item(rowvalue). = Width + ' GridViewDoc_Search.Columns.Item(rowvalue). = Width End If Next