From cbf4d6f89230cc886d4deda451a53f88002558b9 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 12 Oct 2021 10:55:46 +0200 Subject: [PATCH] Fix error logs in SetControlValues_FromControl --- app/DD_PM_WINDREAM/frmValidator.vb | 29 +++++++++++++---------------- 1 file changed, 13 insertions(+), 16 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 5ecbc64..28333c6 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1490,36 +1490,33 @@ Public Class frmValidator Try oTextOption = oResultRow.Item("TextOption") Catch ex As Exception - LOGGER.Error(ex) + LOGGER.Debug("Column [TextOption] not found. Using Default of [Replace]") oTextOption = "Replace" End Try Select Case oControl.GetType() Case GetType(TextBox) - Try - If oTextOption = "Replace" Then - oControl.Text = oCaption - Else - oControl.Text &= oCaption + If oTextOption = "Replace" Then + oControl.Text = oCaption + Else + oControl.Text &= oCaption End If - Catch ex As Exception - LOGGER.Error(ex) - End Try - Dim oColor + Dim oBackColor Try - oColor = Color.FromName(oResultRow.Item("BackgroundColor")) - oControl.BackColor = oColor + oBackColor = Color.FromName(oResultRow.Item("BackgroundColor")) + oControl.BackColor = oBackColor Catch ex As Exception - LOGGER.Error(ex) + LOGGER.Debug("Column [BackgroundColor] not found. Using Default of [White]") oControl.BackColor = Color.White End Try + Dim oForeColor As Color Try - oColor = Color.FromName(oResultRow.Item("FontColor")) - oControl.ForeColor = oColor + oForeColor = Color.FromName(oResultRow.Item("FontColor")) + oControl.ForeColor = oForeColor Catch ex As Exception - LOGGER.Error(ex) + LOGGER.Debug("Column [FontColor] not found. Using Default of [Black]") oControl.ForeColor = Color.Black End Try