| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp) -- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5) ---- 关于 MapValue的使用 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=96040) |
| -- 作者：roadpeace -- 发布时间：2016/4/10 14:53:18 -- 关于 MapValue的使用 Sub testtesttest()
Dim d \'创建一个变量
\'创建Mpp外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.MapValue")
\'创建完Map对象后往其内部插入3个数据
call d.SetKey("1",123.5)
call d.SetKey("3","你好")
call d.SetKey("2",1000)
\'取键值为2的数据并打印下来
Dim DataVal
Result = d.GetValue("3",DataVal)
\'此处原来是"2"
If result = 1 Then
Application.MsgOut DataVal
End IF
\'释放对象
set d = nothing End Sub ------------------------------------------------ 此例子是金字塔vba帮助里找的，稍修改一下，红字那里原来是“2”，可通过。改成“3”，则金字塔非法死掉 何解？？？
|
| -- 作者：admin -- 发布时间：2016/4/10 23:03:01 -- 感谢您的问题反馈，该问题将会在下个升级版解决 |