MS

GUIs.ZooFlow/Search/frmFlowSearch1.vb

@@ -222,6 +222,20 @@ Public Class frmFlowSearch1
                     oBASESEARCH = oBASESEARCH.Replace("@LANG_CODE", My.Application.User.Language)
                 End If
             Next
+            Dim osql = $"EXEC PRIDB_SEARCH_AUTOSUGGEST '{My.Application.User.Language}',{My.Application.User.UserId}"
+            Dim oDTSuggest As DataTable
+            oDTSuggest = My.Database.GetDatatableIDB(osql)
+            Dim collection As AutoCompleteStringCollection = New AutoCompleteStringCollection
+            For Each orow As DataRow In oDTSuggest.Rows
+                collection.Add(orow.Item("TERM"))
+            Next
+
+
+            txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            txtSearchInput.MaskBox.AutoCompleteCustomSource = collection
+
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical)
             Logger.Error(ex)