- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5)
---- 金仕达平台vba取持仓 (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=20591)
-- 发布时间：2012/8/29 14:32:43
-- 金仕达平台vba取持仓
vba中ctp取品种持仓用HoldingInfoByCode2 那金仕达的咋办？ 这个对象我试了下 取不到。怎么办
-- 发布时间：2012/8/29 14:51:10
--
金仕达跟CTP一样的，贴代码上来看看
-- 发布时间：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:15:42
--
难道手工下单不顶用 要程序下单？应该不是这个问题吧
-- 发布时间：2012/8/29 19:38:51
--
不管你什么方式下单的，有持仓就会返回的。
-- 发布时间：2012/8/29 20:56:12
--
call application.MsgOut(ibuyhold)
call是多余的，后面的括号也不需要。正确的格式是
application.msgout iBuyHold
-- 发布时间：2012/8/29 21:09:08
--
但我是在别的事件里调用这段代码的~~这样是应该用call的把
-- 发布时间：2012/8/29 22:00:00
--
在哪里调用，显示提示信息都不用加call,加上就得加括号，不然就会提示错误，你就不要在这个格式上纠结了，集中精力解决你需要解决的问题吧
-- 发布时间：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
-- 发布时间：2012/8/30 9:39:09
--
证实了 应该是代码问题 用ctp测试一样 自己摸索吧 ~~~哎