RelationalAppendDirect

Beschreibung:

Direktes relationales Ergänzen in einer Relationsansicht. Die Übergabe der Werte erfolgt in

folgendem Format:

          <FeldName1>=<Inhalt/Formel1>\t<FeldName2>=<Inhalt/Formel2>\t...

Parameter:

Parametername

Typ

Beschreibung

Relation

Objekt

Relationsobjekt

Parameter

String

Wertepaar

Rückgabewert:

Bool

Beispiel VBScript:

' Dieses Beispiel basiert auf der Kontakte-Ansicht einer combit_Large-Solution

 

Dim oViewConfig : Set oViewConfig = cRM.CurrentProject.ActiveViews.ActiveView.Config

Dim oRelations : Set oRelations = oViewConfig.Relations

Dim oRelation : Set oRelation = oRelations.ItemByName("ID.Aktivitäten.ContactID")

 

Call oRecordSet.RelationalAppendDirect(oRelation, " Direction =2" & vbTab & " ActivityType =1" & vbTab & " Comment=AskString$(""Kontaktbetreff?"", .F., "")")

 

Set oRelation = Nothing

Set oRelations = Nothing

Set oViewConfig = Nothing

Beispiel C#-Script:

// Dieses Beispiel basiert auf der Kontakte-Ansicht einer combit_Large-Solution

 

RecordSet recordSet = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet;

ViewConfig viewConfig = cRM.CurrentProject.ActiveViews.ActiveView.Config;

ListRelations relations = viewConfig.Relations;

Relation relation = relations.ItemByName("ID.Aktivitäten.ContactID");

 

recordSet.RelationalAppendDirect(relation, " Direction =2" + "\t" + " ActivityType =1" + "\t" + @" Comment=AskString$(""Kontaktbetreff?"", .F., "")");

 

recordSet.Dispose();

relation.Dispose();

relations.Dispose();

viewConfig.Dispose();