GetNewStockLotInfo 方法

GetNewStockLotInfo(Index, Account, Code,Name, Market,Price,LotDate, LotVolume)

得到指定基于0索引的新股中签信息.
返回值：返回1调用成功，失败返回0

参数

参数	说明	备注
Index	基于0索引的序列，数据总量通过NewStockLotCount方法函数获得，或者在ActionNotify中标志为3的事件中获取	输入参数
Account	指定需要刷新的账户，若为空字符串则表示当前默认账户	输入参数
Code	可申购股票代码。 注意：如果频繁调用该属性，请注意使用完毕后释放返回值	输出参数
Name	可申购股票名称。 注意：如果频繁调用该属性，请注意使用完毕后释放返回值	输出参数
Market	可申购股票市场。 注意：如果频繁调用该属性，请注意使用完毕后释放返回值	输出参数

| Price | 申购价格 | 输出参数 | | LotDate | 中签日期。 注意：如果频繁调用该属性，请注意使用完毕后释放返回值 | 输出参数 | | LotVolum | 中签数量 | 输出参数 |

注意：调用该函数前，请务必至少调用一次ReqNewStockLotInfo函数查询操作。

示例

Sub Test()

Dim Code
Dim Name
Dim Market
Dim Price
Dim LotDate
Dim LotVolume

NewSize = Order.NewStockLotCount("")

For I = 0 To NewSize - 1

    Ret = Order.GetNewStockLotInfo(i,"",Code,Name,Market,Price,LotDate,LotVolume)

    If Ret = 1 Then

        Application.MsgOut Code&"-"&Name&"-"&Market&"-"&Price&"-"&LotDate&"-"&LotVolume

        Set Code = NoThing
        Set Name = NoThing
        Set Market = NoThing
        Set LotDate = NoThing

    End If

Next

End Sub

应用于

Order 对象