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?
你要填具体的合约名称, 金字塔的合法的品种名称是 品种代码+交割月,建议你F2看看动态显示牌上的品种代码格式规范
zz=order.GetTholding("if06","zj","8541000015",-1)没有,我改成if06还是不行,调用HOLDING函数也不行。
都是0,不论模拟盘和实盘账户,查到的结果还是0。。。。。。
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
你加上这句话,首先确认这个函数已经执行过了再说吧,另外你是否据有专业版权限

此主题相关图片如下:qq截图20140619115133.jpg
Sub Test()
application.msgout order.GetTholding("if06","zj","40005382",-1)
End Sub
通过简单做了个宏测试,这里是正常的.你还是检查一下你的交易账号是否填写正确吧
还有你要升级到最新版 3.21
[此贴子已经被作者于2014/6/19 11:54:54编辑过]
哦哦,我搞错了,它是只能监控自己当前的账户对吧?我用我自己的账户就对了
那为什么
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 啊