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

jj: work on depending controls

Browse Source
This commit is contained in:
Jonathan Jenne 2018-04-26 17:20:52 +02:00
parent 06001ccf8d
commit 5d6dc32e22
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -1060,7 +1060,7 @@ Public Class frmValidator
Dim box As TextBox = sender Dim box As TextBox = sender
If box.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True Then If box.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True Then
If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then
Try Try
Dim CONTROL_ID = VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, box.Name) 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) 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)
@ -1227,16 +1227,15 @@ Public Class frmValidator
input_value = cmb1.Text input_value = cmb1.Text
End If End If
sql_Statement = sql_Statement.ToString.Replace(element.Value, input_value) sql_Statement = sql_Statement.ToString.Replace(element.Value, input_value)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql_Statement: " & sql_Statement)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result ComboBox - ERROR: " & ex.Message) ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result ComboBox - ERROR: " & ex.Message)
End Try End Try
Next Next
Dim resultDT As DataTable = ClassDatabase.Return_Datatable_CS(sql_Statement, ROW.Item(1)) Dim resultDT As DataTable = ClassDatabase.Return_Datatable_CS(sql_Statement, ROW.Item(1))
If resultDT.Rows.Count >= 1 Then If resultDT.Rows.Count = 1 Then
'Nur dediziert einen Wert zurückerhalten 'Nur dediziert einen Wert zurückerhalten
For Each row1 As DataRow In resultDT.Rows For Each row1 As DataRow In resultDT.Rows
Dim result = row1.Item(0) Dim result = row1.Item(0)
@ -1248,6 +1247,15 @@ Public Class frmValidator
Exit For Exit For
End If End If
Next Next
ElseIf resultDT.Rows.Count > 1 Then
'Ist das Control ein Control was mehrfachwerte enthalten kann
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then
Else
MsgBox("Result contains more than one rows!", MsgBoxStyle.Information)
End If
' wenn ja: dann datasource an control anpassen
Else Else
pnldesigner.Controls(displayboxname).Text = "NO RESULT" pnldesigner.Controls(displayboxname).Text = "NO RESULT"
End If End If