扩展字典问题

jimzhoujim

                         

datype(0) = 1
data(0) = 3                                                                                                                                                                Set dic = ent.GetExtensionDictionary()
Set rec = dic.AddXRecord("jim")
rec.SetXRecordData datype, data
rec.GetXRecordData a1, a2
MsgBox "此点序号是" & a2(0) & a1(0)

请问为什么a1(0),a2(0)都是0呢?高手帮忙看下啊