vbs 调用问题 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → vbs 调用问题

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

共有6939人关注过本帖树形打印复制链接主题：vbs 调用问题

admin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2010/2/3 0:58:56 [显示全部帖子]

你的函数有问题,这样改写就好了

sub tst()

'创建一个Array数组对象并排序
Dim dmm '创建一个变量
'创建Array对象，将对象实例置变量d中
Set dmm = CreateObject("Stock.Array")
'创建完Array对象后往其内部插入两个数据
dmm.AddBack(3.25)
dmm.AddBack(4.33)
dmm.AddBack(2.02)
'按正序排列数组数据
dmm.Sort(0)
'依次显示数组对象数据

For iss = 0 To 2
MsgBox dmm.GetAt(iss)
Next

end sub

'调用分笔数据示例

set ReportData = marketdata.GetReportData("rb05","sq")

MsgBox ReportData.qt

[此贴子已经被作者于2010-2-3 1:04:25编辑过]