Navigation:  Klassen > bCheckColumn >

bCheckColumn:RecordList

Diese Seite drucken    Vorherige SeiteZurück zum Anfang des KapitelsNächste Seite

Zweck

Liste der Datensätze, in denen der Datenwert TRUE gesetzt ist.

Klasse

bCheckColumn

Typ

Access

Datentyp

Array

Beschreibung

bCheckColumn:RecordList enthält eine Liste mit allen Datensätzen, für die der Datenwert TRUE in der Datenspalte gesetzt ist. Datensätze für die der Datenwert FALSE gesetzt ist, sind nicht in der Liste enthalten.

 

Die Liste besteht aus einem Array dessen Länge durch den Zugriff bCheckColumn:CheckedCount definiert ist. Jedes Array-Element enthält ein Sub-Array mit 2 Elementen. Das Sub-Array definiert einen Block von Datensätzen, für die der Datenwert TRUE gesetzt ist. Das Sub-Array hat das folgende Format:

 

Konstante

Beschreibung

BCCB_STARTRECNO

RecNo für den ersten Datensatz im Block.

BCCB_ENDRECNO

RecNo für den letzten Datensatz im Block

Beispiele

In dem folgenden Beispiel werden alle Datensatzblöcke ermittelt, in denen der Datenwert TRUE gesetzt ist.

 

auBlock := oCheckColumn:RecordList

iBlockCount := ALen(auBlock)

FOR iBlock:=1 UPTO iBlockCount

 iBlockStart := auBlock[iBlock, BCCB_STARTRECNO]

 iBlockEnd := auBlock[iBlock, BCCB_ENDRECNO]

 ? "Record Block "+NTrim(iBlock)+":"

 ? "  "+NTrim(iBlockStart)+" - "+NTrim(iBlockEnd))

NEXT

 

In dem folgenden Beispiel werden alle Datensätze ermittelt, für die der Datenwert TRUE gesetzt ist.

 

auBlock := oCheckColumn:RecordList

iBlockCount := ALen(auBlock)

FOR iBlock:=1 UPTO iBlockCount

 iRecStart := auBlock[iBlock, BCCB_STARTRECNO]

 iRecEnd := auBlock[iBlock, BCCB_ENDRECNO]

 FOR iRecNo := iRecStart UPTO iRecEnd

         ? iRecNo

 NEXT

NEXT

 

In dem folgenden Beispiel wird das vorherige Beispiel verwendet, um den neuen Zugriff RecNoList in einer abgeleiteten Klasse myCheckColumn zu implementieren. Mit dem Zugriff können alle RecNo's ermittelt werden, für die der Datenwert TRUE gesetzt ist.

 

CLASS myCheckColumn INHERIT bCheckColumn

 

ACCESS RecNoList CLASS myBrowser

 LOCAL aiRecNo       AS ARRAY

 LOCAL auBlock       AS ARRAY

 LOCAL iBlockCount   AS DWORD

 LOCAL iBlock        AS DWORD

 LOCAL iRecStart     AS INT

 LOCAL iRecEnd       AS INT

 LOCAL iRecNo        AS INT

 

 aiRecNo := {}

 auBlock := SELF:RecordList

 iBlockCount := ALen(auBlock)

 FOR iBlock:=1 UPTO iBlockCount

         iRecStart := auBlock[iBlock, BCCB_STARTRECNO]

         iRecEnd := auBlock[iBlock, BCCB_ENDRECNO]

         FOR iRecNo := iRecStart UPTO iRecEnd

                 AADD(aiRecNo, iRecNo)

         NEXT

 NEXT

 RETURN aiRecNo

Siehe auch

bCheckColumn:Check()

bCheckColumn:CheckAll()

bCheckColumn:CheckedCount

bCheckColumn:RecordDelete()

bCheckColumn:RecordGet()

bCheckColumn:RecordListClear()

bCheckColumn:RecordPut()

bCheckColumn:Uncheck()

bCheckColumn:UncheckAll()

 


Page url: http://www.YOURSERVER.com/index.html?bcheckcolumn_recordlist.htm