怎样用程序添加、删除连接(join)和关联(relate)（How do I add, delete, connect (join) and associate (relate) with programs）.docVIP

怎样用程序添加、删除连接(join)和关联(relate)（How do I add, delete, connect (join) and associate (relate) with programs） How to add, delete, connect (Join) and associate (Relate) with a program,.Txt will always be as curious as a child, change like a young man, be as patient as a middle-aged person, and be as wise as an old man. My flash, trouble is not youth, but pressure...... When women no longer live, no lie, no longer subject to changing moods, no longer love. How to add and delete connection with the program (Join) and Association (Relate).Txt heart is myself, why always be hurt...... no umbrella child must strive to run in a perfunctory youth always think too much blame, because the reality is too real person, why - together to two people, and agreed to break up only one abstract In ArcMap, you can create or delete connections and associations for two layers through the property fields. How do you do the same work using VBA or Engine? Here the main use of the IDisplayRelationshipClass.DisplayRelationshipClass method, as follows for the implementation of VBA code: Process description Private, Sub, AddJoin_Relation_Click () Dim pFeatLayer As IFeatureLayer Dim pDispTable As IDisplayTable Dim pFCLayer As IFeatureClass Dim pTLayer As ITable Dim pTabCollection As IStandaloneTableCollection Dim pStTable As IStandaloneTable Dim pDispTable2 As IDisplayTable Dim pTTable As ITable Dim pMemRelFact As IMemoryRelationshipClassFactory Dim pRelClass As IRelationshipClass Dim pDispRC As IDisplayRelationshipClass Set pFeatLayer = GetLayer (0) MapControl1.Layer (0) Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pMap As IMap Set pMap = pDoc.ActiveView Set pTabCollection = pMap If pTabCollection.StandaloneTableCount = 0 Then Exit Sub End If Set pDispTable = pFeatLayer Set pFCLayer = pDispTable.DisplayTable Set pTLayer = pFCLayer Set pDispRC = pFeatLayer Set pStTable = pTabCollection.StandaloneTable (0) Set pDispTable2 = pStTable Set pTTable = pDispTable2.DisplayTable Set pMemRelFact = New M