This commit is contained in:
SchreiberM
2017-03-28 08:50:20 +02:00
parent 3eac89a9a3
commit 266af3f0aa
8 changed files with 17 additions and 17 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 TBENTITY_TABLE" & _ENTITY_ID & " WHERE [" & cmbControls.Text & "] IS NOT NULL AND [" & cmbControls.Text & "] <> '' GROUP BY [" & cmbControls.Text & "]"
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 DT As DataTable = ClassDatabase.Return_Datatable(Sql)
If DT.Rows.Count > 0 Then
ListBoxVorschau.DataSource = DT