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

sort controls by position

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-17 11:50:34 +02:00
parent 38e056ffe7
commit 59eeef5c6f
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -597,10 +597,9 @@ Public Class frmValidator
Sub Load_Controls() Sub Load_Controls()
Try Try
pnldesigner.Controls.Clear() pnldesigner.Controls.Clear()
'Dim dt As DataTable = DD_DMSLiteDataSet.VWPM_CONTROL_INDEX
Dim oSQL = $"SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID}"
DTCONTROLS = ClassDatabase.Return_Datatable(oSQL)
Dim oSQL = $"SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
DTCONTROLS = ClassDatabase.Return_Datatable(oSQL)
Dim oCount As Integer = 0 Dim oCount As Integer = 0
@ -821,12 +820,13 @@ Public Class frmValidator
first_control = oMyControl first_control = oMyControl
End If End If
last_control = oMyControl last_control = oMyControl
End If
oMyControl.TabIndex = oCount
End If
pnldesigner.Controls.Add(oMyControl) pnldesigner.Controls.Add(oMyControl)
'LoadSimpleData(ctrl, oControlRow.Item("GUID")) oCount += 1
Next Next
LOGGER.Debug("Controls geladen") LOGGER.Debug("Controls geladen")
LOGGER.Info("") LOGGER.Info("")
@ -839,7 +839,6 @@ Public Class frmValidator
LOGGER.Info("") LOGGER.Info("")
End Try End Try
End Sub End Sub
Sub Clear_all_Input() Sub Clear_all_Input()