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

order controls in mass validator

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-17 11:52:29 +02:00
parent 59eeef5c6f
commit 0ec31f0cc3
2 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

15
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -58,7 +58,7 @@ Public Class frmMassValidator
Size = My.Settings.frmMassValidatorSize Size = My.Settings.frmMassValidatorSize
End If End If
Try Try
DTCONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID) DTCONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID & " ORDER BY Y_LOC, X_LOC")
LOGGER.Debug("Profile Data geladen") LOGGER.Debug("Profile Data geladen")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -132,6 +132,8 @@ Public Class frmMassValidator
Try Try
pnldesigner.Controls.Clear() pnldesigner.Controls.Clear()
Dim oCount = 0
For Each oControlRow As DataRow In DTCONTROLS.Rows For Each oControlRow As DataRow In DTCONTROLS.Rows
Dim ctrl As Control Dim ctrl As Control
@ -330,16 +332,13 @@ Public Class frmMassValidator
ctrl = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False) ctrl = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False)
End Select End Select
If TypeOf ctrl IsNot Label Then If ctrl IsNot Nothing AndAlso TypeOf ctrl IsNot Label Then
' If first_control Is Nothing Then ctrl.TabIndex = oCount
'first_control = ctrl
'End If
'last_control = ctrl
End If End If
pnldesigner.Controls.Add(ctrl) pnldesigner.Controls.Add(ctrl)
oCount += 1
Next Next
LOGGER.Debug("Controls geladen") LOGGER.Debug("Controls geladen")
LOGGER.Info("") LOGGER.Info("")
@ -351,9 +350,7 @@ Public Class frmMassValidator
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message) LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
LOGGER.Info("") LOGGER.Info("")
End Try End Try
End Sub End Sub
Public Sub onLookUp1(sender As Object, SelectedValues As List(Of String)) Public Sub onLookUp1(sender As Object, SelectedValues As List(Of String))
If FORM_Shown = False Then If FORM_Shown = False Then