Inoffizielles deutsches Xbase-Forum

Eckhard Sallermann hat geschrieben:in Clipper ( zumindest mit dem Comix RDD ) hat cmxkeyno() immer die Satznummer im Index in Abhängigkeit vom Scope angezeigt

ORDKEYNO()
Get the logical record number of the current record

ORDKEYGOTO()
Move to a record specified by its logical record number in the controlling

ORDKEYCOUNT()
Return the number of keys in an order

Eckhard Sallermann hat geschrieben:also wenn ich 10.000 Datensätze habe, setzte einen Scope auf z.B. eine Kundennummer, in diesem Scope befinden sich dann z.B. nur 100 Datensätze.
In Clipper gibt mir dann cmxkeyno() für den ersten Satz im Scope 1 zurück und für den letzten eben 100

Eckhard Sallermann hat geschrieben:Scheinbar kann man das so in XBASE nicht machen, zumindest wird immer die Nummer bezogen auf den gesamten Index zurück gegeben.

Habe ich etwas übersehen, oder gibt es da Möglichkeiten ?

   oBrowse:posBlock      := {| | DbPosition()}
   oBrowse:goPosBlock    := {| n | DbGoPosition(n)}

Sören hat geschrieben:Hallo Ecki,

wie Jimmy schrieb, gibt es die Funktionen ORDKEYGOTO() und ORDKEYCOUNT() in Xbase++ nicht.

Die Funktion ORDKEYNO() existiert jedoch. Und die tut ja genau das, was Du suchst: die logische
Datensatz-Nr. einer indizierten DBF-Tabelle zurückgeben (wobei auch Scopes berücksichtigt werden).

Und hier noch eine Funktion die ORDKEYCOUNT() nachbildet:

Code: Alles auswählen

FUNCTION OrdRecCount( ncIndex )

  LOCAL cCurrentTagName
  LOCAL nRec := RecNo()  // aktuellen DS retten
  LOCAL nRecCount := 0, nFirstRec, nLastRec

  // Index-Pos. o. TagName angegeben --> diesen als kontrollierend setzen u. gleichzeitig den
  // alten Index retten, um ihn spaeter wieder herzustellen
  if ! Empty( ncIndex )
    cCurrentTagName := OrdSetFocus( ncIndex )
  endif

  dbGoTop()  // auf ersten (logischen) DS gehen

  if !Eof()

    nFirstRec := OrdKeyNo()  // relative DS-Nr. des 1. DS der indizierten DB feststellen

    dbGoBottom()  // auf letzten (logischen) DS gehen

    nLastRec := OrdKeyNo()  // relative DS-Nr. des letzten DS der indizierten DB feststellen

    nRecCount := ( nLastRec - nFirstRec + 1 )  // Diffz. zw. 1. und letzten DS bilden

  endif

  // wurde der kontrollierende Index oben verstellt, wird er hier wieder hergestellt
  if cCurrentTagName != NIL
    OrdSetFocus( cCurrentTagName )
  endif

  dbGoTo( nRec )  // aktuellen DS wieder herstellen

RETURN nRecCount

Damit sollte es ein Leichtes sein, bei Bedarf auch die Funktion ORDKEYGOTO() nachzubauen.

Beste Grüße,
Sören

Tom hat geschrieben:Diese von Sören skizzierte Funktion ermittelt nur die Anzahl der Datensätze im Scope. Das hilft wenig, wenn man zum - relativ - fünfzigsten Datensatz springen will.

Hubert hat geschrieben:DBSkip(50)

Sören hat geschrieben:Hallo Ecki,

das ist merkwürdig, denn es funktioniert bei mir.

Ich verwende allerdings die DBFNTX-DBE und ausschließlich DbSetScope( SCOPE_BOTH, ... ).
Vielleicht hat es ja damit zu tun.

Tom hat geschrieben:Diese von Sören skizzierte Funktion ermittelt nur die Anzahl der Datensätze im Scope. Das hilft wenig, wenn man zum - relativ - fünfzigsten Datensatz springen will.

Hubert hat geschrieben:DBSkip(50)

Genau!

Beste Grüße,
Sören

Markus Walter hat geschrieben:Hi,

auch hier nochmal der Hinweis, dass lt. Aussage von Alaska die Funktion ORDKEYNO() bei CDX nicht verlässlich sei (Heuristik). Sie stimmt zwar meist, aber ich hatte in der Tat mal Datenkonstellationen, wo diese Funktion völlig falsche Werte lieferte...