UTA, StartOptions, MDM-Datenverarbeitung

UID/usrCntlDatenarchiv.vb

@@ -21,11 +21,11 @@ Public Class usrCntlDatenarchiv
 
         loaddgv()
 
-        cboPartnersystem.Items.Clear()
+        'cboPartnersystem.Items.Clear()
         Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "Param_system")
 
         For Each d As DataRow In distinctDT.Rows
-            cboPartnersystem.Items.Add(d.Item(0))
+            If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
         Next