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 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 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 oDatatable As DataTable = Database_ECM.GetDatatable(oSQL) ', "frmSQL_FINAL_INDICES_Load3")
cmbControls.DataSource = oDatatable cmbControls.DataSource = oDatatable
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
cmbControls.Visible = True cmbControls.Visible = True
@ -68,32 +67,29 @@ Public Class frmSQL_DESIGNER
btnAddControl.Visible = True btnAddControl.Visible = True
cmbIndexe.Items.Clear() cmbIndexe.Items.Clear()
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If MyIndicies IsNot Nothing Then If MyIndicies IsNot Nothing Then
For Each index As String In MyIndicies For Each index As String In MyIndicies
cmbIndexe.Items.Add(index) cmbIndexe.Items.Add(index)
Next Next
cmbIndexe.SelectedIndex = -1 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 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 End If
Else Else
cmbControls.Visible = False cmbControls.Visible = False
lblControls.Visible = False lblControls.Visible = False