MS Button und IDB Logik

app/DD_PM_WINDREAM/ClassIDBData.vb

@@ -13,11 +13,13 @@
     Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
         Try
             ' Array für Indizes vorbereiten
-            Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count - 1) As String
+            Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count) As String
             Dim oCount As Integer = 0
+            aIndexNames(oCount) = "ObjectID"
             For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
-                aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
                 oCount += 1
+                aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
+
             Next