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

Show Control names in Final Indexing SQL

Browse Source
This commit is contained in:
Jonathan Jenne 2022-07-26 10:26:47 +02:00
parent d58cb3f714
commit 5e0a462f0e
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassSQLEditor.vb
View File

@ -22,7 +22,7 @@ Public Class ClassSQLEditor
oForm.PlaceholdersManualPrefix = "CTRL"
oForm.PlaceholdersManualTitle = "Controls"
oForm.PlaceholdersManual = CURRENT_CONTROL_LIST.ToDictionary(Function(control) control.Name, Function(control) control.Name)
oForm.PlaceholdersManual = CURRENT_CONTROL_NAME_LIST.ToDictionary(Function(name) name, Function(name) name)
If svc.ShowDialog(oForm) = DialogResult.OK Then
Dim sql As New SQLValue(oForm.SQLCommand)

1
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -131,6 +131,7 @@ Module ModuleRuntimeVariables
Public Property CURRENT_DT_PROFILE As DataTable
Public Property CURRENT_CONTROL_LIST As New List(Of Control)
Public Property CURRENT_CONTROL_NAME_LIST As New List(Of String)
Public CURRENT_INDEX_ARRAY(100, 250) As String

12
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -290,9 +290,11 @@ Public Class frmAdministration
TabControl1.SelectedIndex = 0
Exit Sub
End If
TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId)
TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId)
FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId)
TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
Catch ex As Exception
@ -1707,12 +1709,16 @@ Public Class frmAdministration
End Sub
Private Sub PROFILGUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILGUIDTextBox.TextChanged
If IsNumeric(PROFILGUIDTextBox.Text) Then
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
'UNSAVED_CHANGES_PROFILE = False
PROFILEBS_POS = TBPM_PROFILEBindingSource.Position
' change_BindingSource = False
'change_BindingSource = False
TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, USER_LANGUAGE, CURRENT_ProfilGUID)
CURRENT_CONTROL_NAME_LIST = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS.AsEnumerable().
Select(Function(row) row.NAME).
ToList()
End If
End Sub