MS Änderungen an Clickhandle Designer, Adding Controlfields SQLEditor

This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-05 10:18:59 +02:00
parent f74a46597e
commit 12b8f9d52a
22 changed files with 166 additions and 79 deletions

View File

@@ -776,12 +776,8 @@ Public Class frmValidator
Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs)
Dim box As TextBox = sender
If box.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True Then
'If CheckValueExists(box) = False Then
' box.Text = ""
' box.Focus()
' frmError.ShowDialog()
'End If
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Then
Try
Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, box.Name)
Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND SQL_UEBERPRUEFUNG LIKE '%{1}%'", CURRENT_ProfilGUID, box.Name)
@@ -816,7 +812,7 @@ Public Class frmValidator
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
End Try
Next