Fix placeholder configuration for dynamic sqls

This commit is contained in:
Jonathan Jenne 2023-03-13 15:43:31 +01:00
parent 1906bac96d
commit 8ac13823ca

View File

@ -527,12 +527,13 @@ Public Class frmAdministration
Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1")
Dim oPlaceholders = oDatatable.AsEnumerable().
ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX"))
ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME"))
Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With {
.SQLCommand = oSQLCommand,
.SQLConnection = oConnection,
.PlaceholdersManual = oPlaceholders
.PlaceholdersManual = oPlaceholders,
.PlaceholdersManualPrefix = "CTRL"
}
Dim oResult = oForm2.ShowDialog()