主题：发布一套可以用的VBA开发的跟单系统（附源码范例，可任意更改）

做个遍历就行了

 

dim BuyHoding
dim BuyCost
dim BuyTodayHoding
dim SellHoding
dim SellCost
dim SellTodayHoding
dim PNL
dim UseMargin
dim Code
dim Market

FOR I = 0 TO ORDER.Holding2 -1

   Result = Order.HoldingInfo2(i,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin ,Code,Market)
If Result = 1 Then

   CalcHolding(Code,Market)

End if

NEXT

目前是有这个问题,但是这不是金字塔的问题,是CTP接口这么做的,你可以考虑使用金仕达接口,这个柜台是上期持仓合并的

刚才确认了一下研发代码,建议你使用最新发布的 3.21版, 这个版本上对SQ的分开持仓处理是合并的,不会存在你说的问题

3.21的持仓显示是不合并的,但是VBA的持仓处理是合并的,不会影响你的VBA的同步

一个最好的方法是利用数组功能,遍历持仓合约时,将相同的品种过滤掉,这样就可以保证不出错了.

我想了一下,你这边必须用数组来过滤重复的品种,因为多空持仓也是分2个品种的,如果不过滤重复的品种,可能会出现重复下单的情况

这个问题你确认过?

估计你使用的之前的循环查询持仓的方法导致的吧?

我想了一下,你还是用最原始的固定代码吧,将需要保持持仓同步的品种进行手工代码添加吧.