[求助]关于记录集付值的问题

<P>     Set recBuffer = frmMain.mapDisp.Layers(1).SearchByDistance(pt, dst, "")
    Set aLine = recBuffer.Fields("shape").Value</P>
<P>操作的数据均从sde上获取，在recBuffer已经搜索到对象的情况下</P>
<P>aLine还是等于nothing</P>
<P>不解，盼大侠来解答？</P>

<P>你定义的ALINE是什么东东啊。</P><P>你得到的recBuffer是一个记录集（recordset）.</P>

<P>抱歉说的不太详细，完整的程序是这样的</P><P>   Const selPixel = 3
    Public recBuffer As MapObjects2.Recordset </P><P>     Dim aLine As MapObjects2.Line
     Dim pt As New MapObjects2.Point</P><P>
     Set pt = frmMain.mapDisp.ToMapPoint(X, Y)
     Dim dst As Double
     dst = frmMain.map1.ToMapDistance(selPixel * Screen.TwipsPerPixelX)
     Set recBuffer = frmMain.map1.Layers(1).SearchByDistance(pt, dst, "")</P><P>   Set aLine = recBuffer.Fields("shape").Value</P><P>这段程序是写在map1的mousedown事件里的，当我在map1上用鼠标点击一个line时，就会将点击到的那个line的值赋给recBuffer，然后再把recBuffer赋给aLine，但是即使我选中了map1上的一个line，aLien也是等于nothing，不知何故？</P>