This commit is contained in:
SchreiberM
2017-03-31 14:04:45 +02:00
parent a0498b16f2
commit cb12278936
13 changed files with 289 additions and 153 deletions

View File

@@ -220,7 +220,7 @@
If loaded = False Then Exit Sub
If cmbControls.SelectedIndex <> -1 Then
If cmbControls.Text <> "System.Data.DataRowView" Then
Dim Sql = "select TOP 30 [" & cmbControls.Text & "] FROM TBPMO_ENTITY_TABLE" & _ENTITY_ID & " WHERE [" & cmbControls.Text & "] IS NOT NULL AND [" & cmbControls.Text & "] <> '' GROUP BY [" & cmbControls.Text & "]"
Dim Sql = "select TOP 30 [" & cmbControls.Text & "] FROM VWPMO_ENTITY_TABLE" & _ENTITY_ID & " WHERE [" & cmbControls.Text & "] IS NOT NULL AND [" & cmbControls.Text & "] <> '' GROUP BY [" & cmbControls.Text & "]"
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
If DT.Rows.Count > 0 Then
ListBoxVorschau.DataSource = DT