AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Vektorindexierung bei Einzelnem Wert

Browse Source
This commit is contained in:
SchreiberM 2023-12-05 17:23:12 +01:00
parent 43e7dcf068
commit b0df07b128
3 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/ToolCollection/FileContentIndex/dd87eaad-9479-4158-a2c2-7f9ef2c764e6.vsidx
View File

Binary file not shown.

17
ToolCollection/ClassNIWindream.vb
View File

@ -507,9 +507,14 @@ Public Class ClassNIWindream
'Vektorfeld wird mit EINEM Wert gefüllt 'Vektorfeld wird mit EINEM Wert gefüllt
If oAnzahl = 1 Or (oAnzahl = 0 And aValues.Length = 1 And aValues(0) <> "") Then If oAnzahl = 1 Or (oAnzahl = 0 And aValues.Length = 1 And aValues(0) <> "") Then
_Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ") _Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
value = aValues(0) For Each DR In DT_VEKTOR.Rows
ReDim myArray(0) If DR.Item("IndexName") = aName.ToString Then
myArray(0) = Convert_IndexValue(vType, value) 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 'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
_Logger.Debug("Konvertierter Wert: " & myArray(0).ToString) _Logger.Debug("Konvertierter Wert: " & myArray(0).ToString)
@ -564,9 +569,9 @@ Public Class ClassNIWindream
End If End If
Else Else
_Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING") _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
End If End If
Else Else
_Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt ") _Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt ")
' das ausgewählte Profil in _selectedProfile laden ' das ausgewählte Profil in _selectedProfile laden
_selectedProfil = ClassNIProfile.getProfilByName(Profil) _selectedProfil = ClassNIProfile.getProfilByName(Profil)

4
ToolCollection/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.9.4.0")> <Assembly: AssemblyVersion("2.9.5.0")>
<Assembly: AssemblyFileVersion("2.9.4.0")> <Assembly: AssemblyFileVersion("2.9.5.0")>