MS

Modules.Windream/Helpers.vb

@@ -16,37 +16,50 @@ Public Class Helpers
     }
 
     Friend Shared Function ConvertVectorType(vType As Object, value As String)
+        Dim myArray
+        ReDim myArray(0)
         Select Case vType
             Case INDEX_TYPE_HASH ' 36865
                 'Umwandeln in String
-                Return value
+                myArray(0) = CStr(value)
+                Return myArray
             Case INDEX_TYPE_VECTOR_STRING '4097
                 'Umwandeln in String
-                Return value
+                myArray(0) = CStr(value)
+                Return myArray
             Case INDEX_TYPE_VECTOR_INTEGER '4098
                 'Umwandeln in Integer
-                value = value.Replace(" ", "")
-                Return CInt(value)
+                myArray(0) = CInt(value.Replace(" ", ""))
+                Return myArray
             Case INDEX_TYPE_VECTOR_FLOAT  '4099
                 value = value.
                     Replace(" ", "").
                     Replace(".", ",")
                 'Umwandeln in Double
-                Return CDbl(value)
+                myArray(0) = CDbl(value)
+                Return myArray
             Case INDEX_TYPE_VECTOR_BOOLEAN '4100
                 'Umwandeln in Boolean
-                Return CBool(value)
+                myArray(0) = CBool(value)
+                Return myArray
             Case INDEX_TYPE_VECTOR_DATE '4101
                 'Umwandeln in Date
-                Return CDate(value)
+                myArray(0) = CDate(value)
+                Return myArray
             Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
-                Return Convert.ToInt64(value)
+                myArray(0) = Convert.ToInt64(value)
+                Return myArray
             Case INDEX_TYPE_VECTOR_DATE_TIME '4103
                 'Umwandeln in Datum Uhrzeit
                 Return value
+            Case 8204
+                'Umwandeln in Integer
+                myArray(0) = CInt(value.Replace(" ", ""))
+                Return myArray
             Case Else
                 'Umwandeln in String
-                Return value
+                myArray(0) = CStr(value)
+                Return myArray
         End Select
     End Function