标题：金仕达平台vba取持仓

1楼

rushtaotao 发表于：2012/8/29 14:32:43

vba中ctp取品种持仓用HoldingInfoByCode2 那金仕达的咋办？这个对象我试了下取不到。怎么办

2楼

王锋发表于：2012/8/29 14:51:10

金仕达跟CTP一样的，贴代码上来看看

3楼

rushtaotao 发表于：2012/8/29 15:08:46

     dim BuyHolding
     dim BuyCost
     dim SellHolding
     dim SellCost

     Call Order.HoldingInfoByCode2(shili_report1.text,shili_report2.text,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,sAccount)
     iBuyHold=BuyHolding
     iSellHold=SellHolding
     BuyPrice=BuyCost
     SellPrice=SellCost
     call application.MsgOut(ibuyhold)

那看来是我又犯了什么错误了

我是输出该该持仓品种买入持仓总量手工下了1手单调试msgout出0

[此贴子已经被作者于2012-8-29 15:10:05编辑过]

4楼

rushtaotao 发表于：2012/8/29 15:15:42

难道手工下单不顶用要程序下单？应该不是这个问题吧图片点击可在新窗口打开查看

5楼

guotx2010 发表于：2012/8/29 19:38:51

不管你什么方式下单的，有持仓就会返回的。

6楼

guotx2010 发表于：2012/8/29 20:56:12

call application.MsgOut(ibuyhold)

call是多余的，后面的括号也不需要。正确的格式是

application.msgout iBuyHold

7楼

rushtaotao 发表于：2012/8/29 21:09:08

但我是在别的事件里调用这段代码的~~这样是应该用call的把

8楼

guotx2010 发表于：2012/8/29 22:00:00

在哪里调用，显示提示信息都不用加call,加上就得加括号，不然就会提示错误，你就不要在这个格式上纠结了，集中精力解决你需要解决的问题吧

[此贴子已经被作者于2012-8-29 22:02:51编辑过]

9楼

rushtaotao 发表于：2012/8/30 9:17:16

输出是能输出的只不过输出的值不对问题是我现在做了一个普通的窗体想试试这个HoldingInfoByCode2，结果应该输出手数1 却一直输出0

Sub UserForm2_CommandButton1_Click()
dim BuyHolding
     dim BuyCost
     dim SellHolding
     dim SellCost
     Call Order.HoldingInfoByCode2("ag09","sq",BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,sAccount)
     iBuyHold=BuyHolding
     iSellHold=SellHolding
     BuyPrice=BuyCost
     SellPrice=SellCost
     call application.MsgOut("成交单信息 "&ibuyhold&BuyHolding)
     'if iBuyHold>0 then

End Sub

10楼

rushtaotao 发表于：2012/8/30 9:39:09

证实了应该是代码问题用ctp测试一样自己摸索吧 ~~~哎

共10 条记录, 每页显示 10 条, 页签: [1]