bCheckColumn:RecordList

Purpose

List of the records for which the data value TRUE was set.

Class

bCheckColumn

Type

Access

Data Type

Array

Description

bCheckColumn:RecordList contains a list with all records for which the data value TRUE was set in the column. Records for which the data value FALSE was set are not contained in the list.

The list is an array whose number of elements is defined by the access bCheckColumn:CheckedCount. Each element of the array is a subarray with 2 elements. The subarray defines a block of records for which the data value TRUE was set. The subarrays have the following format:

Constant	Description
BCCB_STARTRECNO	The record number of the first record in the block.
BCCB_ENDRECNO	The record number of the last record in the block.

Samples

In the following sample all record blocks are determined for which the data value TRUE is set.

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))

In the following sample all records are determined for which the data value TRUE is set.

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

In the following sample the previous sample is used to implement the new access RecNoList in a inherited class myCheckColumn. With the access all RecNo can be determined for which the data value TRUE is set.

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)

RETURN aiRecNo