欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何把array数组的值传递给Function lttt

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2634人关注过本帖树形打印复制链接

主题：如何把array数组的值传递给Function lttt
帅哥哟，离线，有人找我吗？
qq641031325
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：3 积分：0 威望：0 精华：0 注册：2015/10/3 9:33:35 		如何把array数组的值传递给Function lttt  发帖心情 Post By：2017/9/5 16:48:33 [只看该作者]

有一个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 数组？  谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
无为剑
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：2437 积分：0 威望：0 精华：0 注册：2016/3/5 22:53:41 		  发帖心情 Post By：2017/9/6 0:05:25 [只看该作者]

只有序列模式下才支持数据形式的返回的，你看看是不是你用了逐K线模式了
 回到顶部
帅哥哟，离线，有人找我吗？
qq641031325
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：3 积分：0 威望：0 精华：0 注册：2015/10/3 9:33:35 		  发帖心情 Post By：2017/9/6 7:48:06 [只看该作者]

还是不行    返回的还是array数组最后一个值   

 回到顶部
帅哥哟，离线，有人找我吗？
qq641031325
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：3 积分：0 威望：0 精华：0 注册：2015/10/3 9:33:35 		  发帖心情 Post By：2017/9/6 7:57:23 [只看该作者]

写出来了   是数组赋值没定义下标

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.07813 秒, 5 次数据查询