MS Änderungen an Clickhandle Designer, Adding Controlfields SQLEditor
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user