add some constants for index types

2021-09-23 12:06:24 +02:00
parent 59d6d26dce
commit 66039f22d8
4 changed files with 13 additions and 9 deletions
--- a/Global_Indexer/ClassPatterns.vb
+++ b/Global_Indexer/ClassPatterns.vb
@@ -231,9 +231,9 @@ Public Class ClassPatterns

                            If oLookupControl.Properties.MultiSelect Then
                                Select Case oFoundType
-                                    Case "INTEGER"
+                                    Case ClassConstants.INDEX_TYPE_INTEGER
                                        oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
-                                    Case "VARCHAR"
+                                    Case ClassConstants.INDEX_TYPE_VARCHAR
                                        Dim oWrapped = oLookupControl.Properties.SelectedValues
                                        oValue = String.Join(",", oWrapped)
                                    Case Else