关于mapx和VB的开发

[qzww5324]

在form上有2个List,List1中所显示的是图元中的Key属性,现在的要求是当我点选了List1中的一项后能在list2中显示出给图元的所有属性信息..

这里是我的代码:
Private Sub List1_Click()
Dim MyFeature As MapXLib.Feature
Dim MyLayer As MapXLib.Layer
Dim TempDataset As MapXLib.Dataset

Set TempLayer = Map1.Layers.Item(Combo1.Text)
Set TempFeature = TempLayer.GetFeatureByKey(List1.text)
Set TempDataset = Map1.DataSets.Add(miDataSetLayer,TempLayer)
For Each TempField In TempDataset.Fields
List2.AddItem (CStr(TempDataset.Value(TempFeature.Key, TempField.Name)))
Next

End Sub
在程序调试后,Set TempFeature = TempLayer.GetFeatureByKey(List1.text)这句会提示"对象GetFeatureByKey的方法CMapXLayer失败"

请各位帮帮我吧...应该怎么修改~

[CathySun118]

不知道，帮顶

[guyehanxinlei]

帮顶

[guxing110]

学习