diff --git a/.vs/ToolCollection/FileContentIndex/dd87eaad-9479-4158-a2c2-7f9ef2c764e6.vsidx b/.vs/ToolCollection/FileContentIndex/dd87eaad-9479-4158-a2c2-7f9ef2c764e6.vsidx deleted file mode 100644 index 9974a5a..0000000 Binary files a/.vs/ToolCollection/FileContentIndex/dd87eaad-9479-4158-a2c2-7f9ef2c764e6.vsidx and /dev/null differ diff --git a/ToolCollection/ClassNIWindream.vb b/ToolCollection/ClassNIWindream.vb index 143fa4a..a257b9a 100644 --- a/ToolCollection/ClassNIWindream.vb +++ b/ToolCollection/ClassNIWindream.vb @@ -507,9 +507,14 @@ Public Class ClassNIWindream 'Vektorfeld wird mit EINEM Wert gefüllt If oAnzahl = 1 Or (oAnzahl = 0 And aValues.Length = 1 And aValues(0) <> "") Then _Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ") - value = aValues(0) - ReDim myArray(0) - myArray(0) = Convert_IndexValue(vType, value) + For Each DR In DT_VEKTOR.Rows + If DR.Item("IndexName") = aName.ToString Then + ReDim myArray(0) + value = DR.Item("Value") + myArray(0) = Convert_IndexValue(vType, DR.Item("Value")) + Exit For + End If + Next 'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen _Logger.Debug("Konvertierter Wert: " & myArray(0).ToString) @@ -564,9 +569,9 @@ Public Class ClassNIWindream End If Else _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING") - End If - Else - _Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt ") + End If + Else + _Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt ") ' das ausgewählte Profil in _selectedProfile laden _selectedProfil = ClassNIProfile.getProfilByName(Profil) diff --git a/ToolCollection/My Project/AssemblyInfo.vb b/ToolCollection/My Project/AssemblyInfo.vb index 9992bf2..606489a 100644 --- a/ToolCollection/My Project/AssemblyInfo.vb +++ b/ToolCollection/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +