- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 我怎么取不到持仓？ (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=66342)
-- 发布时间：2014/6/19 11:14:41
-- 我怎么取不到持仓？
Dim ss
Dim aa
Dim zz
Sub OrderFailed_button_Click() \'开始按钮控件单击事件，事件触发后执行下面的语句
call application.SetTimer(0,100) \'注册定时器，而后会执行了这个事件
\'Sub PPLICATION_Timer(ID)
aa=1 \'设置时间
OrderFailed_text="wocaonimama"
ss = "wocaonimama" \'将对象赋值存储设定品种信息
End Sub
Sub APPLICATION_Timer(ID) \'注册定时器后，而后会执行了这个事件
aa=aa+1
OrderFailed_button.caption=aa \'获取数据显示
zz=order.GetTholding("if","zj","8541000015",-1)
OrderFailed_text="当前持仓为："&zz&"手"
end sub
源代码，我想知道账户持仓情况，为什么总是显示为0？
-- 发布时间：2014/6/19 11:17:10
--
你要填具体的合约名称, 金字塔的合法的品种名称是 品种代码+交割月,建议你F2看看动态显示牌上的品种代码格式规范
-- 发布时间：2014/6/19 11:38:36
--
zz=order.GetTholding("if06","zj","8541000015",-1)
没有，我改成if06还是不行，调用HOLDING函数也不行。
都是0，不论模拟盘和实盘账户，查到的结果还是0。。。。。。
-- 发布时间：2014/6/19 11:45:23
--
Sub APPLICATION_Timer(ID) \'注册定时器后，而后会执行了这个事件
Application.msgout "asdsasda"
aa=aa+1
OrderFailed_button.caption=aa \'获取数据显示
zz=order.GetTholding("if","zj","8541000015",-1)
OrderFailed_text="当前持仓为："&zz&"手"
end sub
你加上这句话,首先确认这个函数已经执行过了再说吧,另外你是否据有专业版权限
-- 发布时间：2014/6/19 11:48:05
--
我没有专业版的权限，程序是执行过了的。
仅仅获取持仓需要专业版的权限吗？
-- 发布时间：2014/6/19 11:51:18
--
发不了图
-- 发布时间：2014/6/19 11:51:30
--
此主题相关图片如下：qq截图20140619115133.jpg
-- 发布时间：2014/6/19 11:54:13
--
Sub Test()
application.msgout order.GetTholding("if06","zj","40005382",-1)
End Sub
通过简单做了个宏测试,这里是正常的.你还是检查一下你的交易账号是否填写正确吧
还有你要升级到最新版 3.21
[此贴子已经被作者于2014/6/19 11:54:54编辑过]
-- 发布时间：2014/6/19 12:40:34
--
哦哦，我搞错了，它是只能监控自己当前的账户对吧？我用我自己的账户就对了
-- 发布时间：2014/6/19 13:02:41
--
那为什么
Sub APPLICATION_Timer(ID) \'注册定时器后，而后会执行了这个事件
aa=aa+1
OrderFailed_button.caption=aa \'获取数据显示
zz=order.GetTholding("if06","zj","9000441",-1)
Dim bb
bb=order.Holding
OrderFailed_text="当前持仓为："&zz&"手"&bb
end sub
我这样写，HOLDING获取不到持仓量呢？调试的时候MSGOUT也是0 啊