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.

9
ToolCollection/ClassNIWindream.vb
View File

@ -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)
For Each DR In DT_VEKTOR.Rows
If DR.Item("IndexName") = aName.ToString Then
ReDim myArray(0)
myArray(0) = Convert_IndexValue(vType, value)
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)

4
ToolCollection/My Project/AssemblyInfo.vb
View File

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