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

reactivate control placeholders for grid column sql

Browse Source
This commit is contained in:
Jonathan Jenne 2021-10-08 14:24:21 +02:00
parent d8287bc135
commit 6d6f8e15ac
1 changed files with 23 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -58,9 +58,8 @@ Public Class frmSQL_DESIGNER
End If
If CURRENT_DESIGN_TYPE <> "SQL_SOURCE_TABLE_COLUMN" Then
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
Dim oDatatable As DataTable = Database_ECM.GetDatatable(oSQL) ', "frmSQL_FINAL_INDICES_Load3")
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
Dim oDatatable As DataTable = Database_ECM.GetDatatable(oSQL) ', "frmSQL_FINAL_INDICES_Load3")
cmbControls.DataSource = oDatatable
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
cmbControls.Visible = True
@ -68,32 +67,29 @@ Public Class frmSQL_DESIGNER
btnAddControl.Visible = True
cmbIndexe.Items.Clear()
If IDB_ACTIVE = False Then
If MyIndicies IsNot Nothing Then
For Each index As String In MyIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = True
'lbIndexe.Enabled = True
'btnAddIndex.Enabled = True
Else
Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
If oAttributes IsNot Nothing Then
For Each oAttribute As String In oAttributes
cmbIndexe.Items.Add(oAttribute)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = False
'lbIndexe.Enabled = False
'btnAddIndex.Enabled = False
If IDB_ACTIVE = False Then
If MyIndicies IsNot Nothing Then
For Each index As String In MyIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = True
'lbIndexe.Enabled = True
'btnAddIndex.Enabled = True
Else
Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
If oAttributes IsNot Nothing Then
For Each oAttribute As String In oAttributes
cmbIndexe.Items.Add(oAttribute)
Next
cmbIndexe.SelectedIndex = -1
End If
'cmbIndexe.Enabled = False
'lbIndexe.Enabled = False
'btnAddIndex.Enabled = False
End If
Else
cmbControls.Visible = False
lblControls.Visible = False