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

'功能:插入数据框
   Dim pGraphicsContainer As IGraphicsContainer
   Dim pMap As IMap
   Dim pMaps As IMaps
   Dim pActiveView As IActiveView
   
   Set pGraphicsContainer = frmmain.PageLayoutControl1.PageLayout
   Set pActiveView = frmmain.PageLayoutControl1.ActiveView
   Set pMap = frmmain.PageLayoutControl1.ActiveView.FocusMap
   
   Dim pMapFrame As IMapFrame
   Dim pMapExt As IEnvelope
   
   Set pMapFrame = New MapFrame
   Set pMapExt = New Envelope
   Set pMapFrame.Map = pMap
   pMapExt.PutCoords 1, 1, 20, 20
   
   Dim pMapElement As IElement
   Dim pGeoExt As IGeometry
   
   Set pMapElement = pMapFrame
   Set pGeoExt = pMapExt
   pMapElement.Geometry = pGeoExt
   
   pGraphicsContainer.AddElement pMapElement, 1
   frmmain.PageLayoutControl1.Refresh
运行结果,会出现两个数据窗口中都带有数据,但是,把Set pMapFrame.Map = pMap去掉,有不行,设置成没有地图也不行,请指教!

不知道用什么方法可以解决这个问题,大家勤思考奥,等待老大解答!