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

Fix error logs in SetControlValues_FromControl

Browse Source
This commit is contained in:
Jonathan Jenne 2021-10-12 10:55:46 +02:00
parent c82eaf614a
commit cbf4d6f892
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -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