MS

2021-05-06 17:00:07 +02:00
parent 1a3b9862f9
commit 9e9a489a26
3 changed files with 30 additions and 12 deletions
--- a/Modules.Windream/Windream.vb
+++ b/Modules.Windream/Windream.vb
@@ -1142,7 +1142,12 @@ Public Class Windream

        Try
            Dim oType As Integer = GetIndexType(IndexName)
-            Dim oConvertedValue As Object = Helpers.ConvertIndexValue(oType, Value)
+            Dim oConvertedValue As Object
+            If oType < 3000 Then
+                oConvertedValue = Helpers.ConvertIndexValue(oType, Value)
+            Else
+                oConvertedValue = Helpers.ConvertVectorType(oType, Value)
+            End If
            oWMObject.SetVariableValue(IndexName, oConvertedValue)
            oWMObject.Save()