<P>木白林，我不知道你说哪一行</P>
<P> 移动图层就是先获取图层，然后用moveto了</P>
<P>打开表：获取图层（featureclass）>feature>field</P>
<P>读每个字段的value就是了，帮助里都有的，还是自己写点代码再问吧，</P><img src="images/post/smile/dvbbs/em02.gif" />

现在有两个问题了 ，一个是移动图层，一个是打开表

<P>代码改后如下：</P>
<P>Private Sub TOCControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)<BR>If (button = vbRightButton) Then<BR>Dim pMap As IMap<BR>Dim pLayer As ILayer<BR>Dim pOther As IUnknown<BR>Dim pItem As esriTOCControlItem<BR>Dim pIndex As Variant</P>
<P>  TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex<BR>  If pItem.Text = "Remove" Then<BR>  For i = 0 To pMap.Count<BR>    If pMap.Layer(i).Name = pLayer.Name Then<BR>       pMap.Layer(i).Delete<BR>    End If<BR>  Next i<BR>    'ElseIf pItem.Text = "Attribute Table" Then<BR>    '在帮助里找Attribute Table，记不清了．<BR>  End If<BR>End If<BR>End Sub</P>
<P>运行没有问题，但是只要在toccontrol中点右键就会提示：编译错误，无效限定符。提示行在pItem，不知道哪里出错了，还请指教！</P>

谢谢，谢谢楼上的兄台的提示<img src="images/post/smile/dvbbs/em12.gif" />

<P>TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex</P>
<P>if pItem.text = "Remove" then<BR>  for i = 0 to pMap.count </P>
<P>     if pMap.Layer(i).name = pLayer.name then</P>
<P>                 pMap.Layer(i).delete</P>
<P>     end if</P>
<P>   next i</P>
<P>elseif pItem.text = "Attribute Table"</P>
<P>   在帮助里找Attribute Table，记不清了．</P>
<P>endif</P>
<P>手头没ＡＯ，因此上面的代码没有调试过，可能有错误，希望对你有帮助．</P><img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em03.gif" />

顶一下！应该有大虾做过吧