对象变量或with块变量未设置，望大手指点！MO二次开发中的多边形选择程序

Question

Private Sub cmdSelectPolygon_Click()     '多边形选择
  Dim recselect As MapObjects2.Recordset
    Dim shp As MapObjects2.Polygon
    choosemethod = 2
    Map1.MousePointer = moArrow
    Set shp = recselect.Fields("shape").Value
    Map1.FlashShape shp, 2
    Map1.Refresh
End Su

Answer 1

Dim recselect As MapObjects2.Recordset
    Dim shp As MapObjects2.Polygon
加new声明
Dim recselect As  new MapObjects2.Recordset
    Dim shp As new MapObjects2.Polygon

Answer 2

先看看是哪个没有实例话，然后看看是不是
 recselect.Fields("shape").Value 里面就是个nothing