MS
This commit is contained in:
@@ -808,6 +808,7 @@ Public Class frmValidator
|
||||
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
|
||||
AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
|
||||
AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
|
||||
|
||||
oMyControl = txt
|
||||
LOGGER.Debug($"[{oControlInfo}] - TXT Created!!")
|
||||
Catch ex As Exception
|
||||
@@ -1113,6 +1114,7 @@ Public Class frmValidator
|
||||
box.SelectAll()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs)
|
||||
Dim oTextbox As TextBox = sender
|
||||
|
||||
@@ -1123,6 +1125,7 @@ Public Class frmValidator
|
||||
|
||||
ClassControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)
|
||||
End Sub
|
||||
|
||||
Private Function GetControlID(ByVal PROFILEID As Integer, Controlname As String)
|
||||
For Each oROW As DataRow In DTVWCONTROL_INDEX.Rows
|
||||
|
||||
@@ -2040,7 +2043,7 @@ Public Class frmValidator
|
||||
_dependingControl_in_action = True
|
||||
|
||||
Dim oConnectionId As Integer = oRowEnablingControl.Item("CONNECTION_ID")
|
||||
Dim oResult = _Client.GetScalarValueFromIDB(oSqlCommand, oConnectionId)
|
||||
Dim oResult = _Client.get(oSqlCommand, oConnectionId)
|
||||
Dim oENABLERESULT As Boolean = False
|
||||
|
||||
If oResult.OK Then
|
||||
@@ -2978,6 +2981,11 @@ Public Class frmValidator
|
||||
End If
|
||||
Try
|
||||
oControl.Text = NotNull(oValueFromSource, oDefaultValue)
|
||||
|
||||
|
||||
ClassControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)
|
||||
|
||||
|
||||
_CURRENT_INDEX_ARRAY(oCount, 1) = NotNull(oValueFromSource, oDefaultValue)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("ERROR while converting defaultValue [" & oDefaultValue & "]: " & ex.Message)
|
||||
|
||||
Reference in New Issue
Block a user