插入数据框,产生的一个小问题,对大家有帮助.

<P>'功能:插入数据框<BR>    Dim pGraphicsContainer As IGraphicsContainer<BR>    Dim pMap As IMap<BR>    Dim pMaps As IMaps<BR>    Dim pActiveView As IActiveView<BR>    <BR>    Set pGraphicsContainer = frmmain.PageLayoutControl1.PageLayout<BR>    Set pActiveView = frmmain.PageLayoutControl1.ActiveView<BR>    Set pMap = frmmain.PageLayoutControl1.ActiveView.FocusMap<BR>    <BR>    Dim pMapFrame As IMapFrame<BR>    Dim pMapExt As IEnvelope<BR>    <BR>    Set pMapFrame = New MapFrame<BR>    Set pMapExt = New Envelope<BR>    Set pMapFrame.Map = pMap<BR>    pMapExt.PutCoords 1, 1, 20, 20<BR>    <BR>    Dim pMapElement As IElement<BR>    Dim pGeoExt As IGeometry<BR>    <BR>    Set pMapElement = pMapFrame<BR>    Set pGeoExt = pMapExt<BR>    pMapElement.Geometry = pGeoExt<BR>    <BR>    pGraphicsContainer.AddElement pMapElement, 1<BR>    frmmain.PageLayoutControl1.Refresh<BR>运行结果,会出现两个数据窗口中都带有数据,但是,把Set pMapFrame.Map = pMap去掉,有不行,设置成没有地图也不行,请指教!</P>
<P>不知道用什么方法可以解决这个问题,大家勤思考奥,等待老大解答!</P>

你可以写代码直接删除掉一个mapframe，而不是设置地图