MS_06022016

This commit is contained in:
SchreiberM
2016-02-08 09:24:29 +01:00
parent ab475bfa7a
commit 85d4120c50
14 changed files with 229 additions and 149 deletions

View File

@@ -56,7 +56,8 @@
If formloaded = True Then
Try
If FORM_IDComboBox.SelectedIndex <> -1 Then
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, NAME FROM TBPMO_CONTROL WHERE FORM_ID = " & FORM_IDComboBox.SelectedValue & " ORDER BY NAME")
Dim sql = String.Format("SELECT GUID, NAME FROM TBPMO_CONTROL WHERE FORM_ID = {0} and CONTROL_TYPE_ID not in (1,5) ORDER BY NAME", FORM_IDComboBox.SelectedValue)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
CONTROL_IDComboBox.DataSource = DT1
CONTROL_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName
CONTROL_IDComboBox.ValueMember = DT1.Columns(0).ColumnName