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

WIP: Windream2

Browse Source
This commit is contained in:
Jonathan Jenne
2018-08-27 17:12:30 +02:00
parent feb522ec64
commit 41cd8313a9
4 changed files with 63 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Modules.Windream/Windream.vb
View File

@@ -475,7 +475,7 @@ Public Class Windream
If Anzahl = 1 Then
Logger.Info("Vectorfield will be filled with ONE VALUE!")
ReDim myArray(0)
myArray(0) = Helpers.Convert_VectorType(oWMType, value)
myArray(0) = Helpers.ConvertVectorType(oWMType, value)
'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
Logger.Info("Converted Value: " & myArray(0).ToString)
Dim VektorArray()
@@ -906,7 +906,7 @@ Public Class Windream
ReDim Preserve ValueArray(valueCount)
'Den Wert im Array speichern
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, row.Item(0))
ValueArray(valueCount) = Helpers.ConvertVectorType(vType, row.Item(0))
valueCount += 1
Next
'Jetzt die Neuen Werte auf Duplikate überprüfen
@@ -916,7 +916,7 @@ Public Class Windream
'Das Array anpassen
ReDim Preserve ValueArray(valueCount)
'Den Wert im Array speichern
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
ValueArray(valueCount) = Helpers.ConvertVectorType(vType, NewValue)
valueCount += 1
Else
Logger.Info("Value '" & NewValue.ToString & "' already existing in vectorfield(1)")
@@ -935,7 +935,7 @@ Public Class Windream
'Das Array anpassen
ReDim Preserve ValueArray(valueCount)
'Den Wert im Array speichern
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
ValueArray(valueCount) = Helpers.ConvertVectorType(vType, NewValue)
valueCount += 1
Else
Logger.Info("Value '" & NewValue.ToString & "' already existing in vectorfield(2)")
@@ -945,7 +945,7 @@ Public Class Windream
'Das Array anpassen
ReDim Preserve ValueArray(valueCount)
'Den Wert im Array speichern
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
ValueArray(valueCount) = Helpers.ConvertVectorType(vType, NewValue)
valueCount += 1
End If
@@ -1142,7 +1142,7 @@ Public Class Windream
'Erst die ALten Werte schreiben
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = Helpers.Convert_VectorType(vType, WDValue)
ValueArray(Anzahl) = Helpers.ConvertVectorType(vType, WDValue)
Anzahl += 1
End If
End If