UTA, MDM, MSE, Datenarchiv

UID/usrCntlDatenarchiv.vb

@@ -76,6 +76,23 @@ Public Class usrCntlDatenarchiv
 
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
 
+        DatenarchivBind = New cEasyBinding(BIND_DB)
+
+
+        Dim sqlstr As String = ""
+        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+
+
+        DatenarchivBind.initBinding("SELECT " & TopMax & " [Param_name],[Param_value], [Param_system]  FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), table)
+
+        DataGridView.DataSource = DatenarchivBind.bindingdataTable
+
+        Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "Param_system")
+
+        For Each d As DataRow In distinctDT.Rows
+            If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
+        Next
+
         Me.usrCntlDatenarchiv_Load(sender, e)
 
     End Sub