Zweck
Liste der Datensätze, in denen der Datenwert TRUE gesetzt ist.
Klasse
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:RecordListClear()
Page url: http://www.YOURSERVER.com/index.html?bcheckcolumn_recordlist.htm