增加图元

        以前增加图元，总是用复制图元的方式，受的限制较大。今天试着用创建的方式来增加，效果还行，需要注意：

• 用datasets太麻烦
• 用keyfield必须是对map1下的layer的，即对已经加入的ftr的。
• 默认情况下，keyvalue是对第一列的。
• 写了一半的代码：

'添加图元
Public Function AddFeature(keyword As String) As Feature
  Dim ftr As New Feature
  Dim addftr As Feature
  ftr.Attach Map1
  ftr.Type = miFeatureTypeSymbol
  ftr.Style = mainlayer.Style
  ftr.Point.Set Map1.CenterX, Map1.CenterY
  Dim ds As Dataset
  Set addftr = mainlayer.AddFeature(ftr)
  mainlayer.KeyField = NameField
  addftr.KeyValue = keyword
  addftr.Update
 
  Set AddFeature = addftr
End Function