Zooflow: Workspaces

GUIs.ZooFlow/Search/frmFlowSearch2.vb

@@ -52,6 +52,7 @@ Public Class frmFlowSearch2
 
     Public Function GetTokensFromTable(Of T As {New, Token})(pTable As DataTable) As List(Of T)
         Dim oTokens As New List(Of T)
+        Dim oTermValueBlackList As New List(Of String) From {"", " "}
 
         For Each oRow As DataRow In pTable.Rows
             Dim oTermValue = oRow.Item("TERM")
@@ -59,6 +60,10 @@ Public Class frmFlowSearch2
             Dim oAttributeTitle = oRow.Item("ATTR_TITLE")
             Dim oAttributeId = oRow.ItemEx("ATTR_ID", 0)
 
+            If oTermValueBlackList.Contains(oTermValue) Then
+                Continue For
+            End If
+
             oTokens.Add(New T() With {
                 .AttributeId = oAttributeId,
                 .AttributeTitle = oAttributeTitle,