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