以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  如何把array数组的值传递给Function lttt  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=157630)
--  作者：qq641031325
--  发布时间：2017/9/5 16:48:33
--  如何把array数组的值传递给Function lttt
有一个array数组p   经过测试 p里含有计算过的值    但是  当写 llt=p时  报错483 对象不支持此属性或方法

但是案例里
Function CU_MA1(Formula,CLOSE,CYC)
   CU_MA1=0

   
    If Formula.WorkMode = 0 Then
        Exit Function 
    End If

    
    DataCount = UBound(CLOSE)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

   
    Dim ResultMa
    Redim ResultMa(DataCount)

    For i = Cyc-1 To Formula.DataSize-1
        Count = 0
        For k = i-(Cyc-1) To i
            Count = Count + CLOSE(k)
        Next
        ResultMa(i) = Count / Cyc
    Next

    CU_MA1 = ResultMa
End Function  



为什么CU_MA1 = ResultMa却可以    或者 怎么把array数组里的值给Redim 数组？  谢谢
--  作者：无为剑
--  发布时间：2017/9/6 0:05:25
--  

只有序列模式下才支持数据形式的返回的，你看看是不是你用了逐K线模式了
--  作者：qq641031325
--  发布时间：2017/9/6 7:48:06
--  
还是不行    返回的还是array数组最后一个值   
--  作者：qq641031325
--  发布时间：2017/9/6 7:57:23
--  
写出来了   是数组赋值没定义下标