MovePrevious

Beschreibung:

Bewegt den Datensatz-Zeiger um einen Datensatz rückwärts.

Rückgabewert:

Bool

Beispiel VBScript:

' Durchläuft alle Datensätze in einem kopierten RecordSet und summiert die Gesamtumsätze. Dieses Beispiel basiert auf der Firmen-Ansicht einer combit_Large-Solution

 

Dim oRecordSetCopy : Set oRecordSetCopy = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSetCopy

Dim oRecord

Dim nTurnover : nTurnover = 0

 

If (oRecordSetCopy.MoveLast() = True) Then

    Set oRecord = oRecordSetCopy.CurrentRecord

   

    Do

        nTurnover = nTurnover + oRecord.GetContentsValueByName("Turnover")

    Loop Until Not oRecordSetCopy.MovePrevious()

   

    Set oRecord = Nothing

End If

 

Call cRM.DialogMessageBox("Der Gesamtumsatz der aktuell angezeigten Datensätze beträgt: " & CStr(nTurnover) & " EUR.", "RecordSet.MoveFirst", vbOkOnly)

 

Set oRecordSetCopy = Nothing

Beispiel C#-Script:

// Durchläuft alle Datensätze in einem kopierten RecordSet und summiert die Gesamtumsätze. Dieses Beispiel basiert auf der Firmen-Ansicht einer combit_Large-Solution

 

RecordSet recordSetCopy = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSetCopy();

Record record;

double turnover = 0;

 

if (recordSetCopy.MoveLast() == true)

{

    record = recordSetCopy.CurrentRecord;

 

    do

    {

        turnover = turnover + (double)record.GetContentsValueByName("Turnover");

    } while (!recordSetCopy.MovePrevious());

 

    record.Dispose();

 

}

 

cRM.DialogMessageBox("Der Gesamtumsatz der aktuell angezeigten Datensätze beträgt: " + turnover.ToString() + " EUR.", "RecordSet.MovePrevious", 0);

 

recordSetCopy.Dispose();