anadido eliminaciOn de duplicidades en el xml de autocompletado

LuisM000 · Nov 16, 2012 · 22a1b24 · 22a1b24
1 parent 1a77448
commit 22a1b24
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Maps.NET/Maps.NET/Maps.NET/ClaseAspecto.vb b/Maps.NET/Maps.NET/Maps.NET/ClaseAspecto.vb
@@ -350,13 +350,18 @@ Public Class AspectoFormulario
         Catch
         End Try
     End Sub
-    
+
     Public Sub precargaAutocompletar()
         Try
             ' Array of strings.
             Dim autoArray() As String
             autoArray = DirectCast(listaAutocompletar.ToArray(GetType(String)), String())
+
+            'Con .distinct.toarray eliminaos duplicidades
+            autoArray = autoArray.Distinct.ToArray
+            listaAutocompletar = New ArrayList(autoArray)
             MySource.AddRange(autoArray)
+
         Catch
         End Try
     End Sub
@@ -396,6 +401,8 @@ Public Class AspectoFormulario
                 myXmlTextWriter.WriteEndElement()
                 myXmlTextWriter.Flush()
                 myXmlTextWriter.Close()
+
+
             Catch
             End Try
         End If