<P>顶一下，非常感谢楼上的热情帮助，问题终于解决了。</P><P>以下是经过我修改后的程序，希望会对大家有所用：</P><P><FONT style="BACKGROUND-COLOR: #55aa99">    Dim pMap As IMap
     Set pMap = MapControlMain.ActiveView.FocusMap</FONT></P><P>' Find the layer named SDE.New_Shapefile
      Dim pLayer As ILayer
      Dim pInputFeatLayer As IFeatureLayer
      Dim intCount As Integer
      For intCount = 0 To pMap.LayerCount - 1
        Set pLayer = pMap.Layer(intCount)
        If TypeOf pLayer Is IFeatureLayer Then
          If pLayer.Name = "New_Shapefile" Then
            Set pInputFeatLayer = pLayer
            Exit For
          End If
        End If
      Next
      If <FONT style="BACKGROUND-COLOR: #c2ee11">pLayer</FONT> Is Nothing Then
        MsgBox "The SDE.New_Shapefile layer was not found"
        Exit Sub
      End If
    
      ' Get input table
      ' Use the ITable interface from the FeatureLayer (not from the FeatureClass)
      Dim pInputTable As ITable
      Set pInputTable = pInputFeatLayer
<FONT style="BACKGROUND-COLOR: #11ee69">      Dim pTable As ITable
      Set pTable = pInputTable</FONT></P><P>   前两句是楼上的，后面的是我稍微修改dissolve后的。</P><P>   我是刚开始接触的，以后还得跟大家多多交流   互相学习</P><img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em04.gif" /><img src="images/post/smile/dvbbs/em08.gif" />