Hmm
The famous Worsley effect
Code:
Procedure ResetAllSelections tWebRow[] aData
tWebRow vOneRow
String sRowID
Integer iTop iCtr iColumn
Get piColumnPosition of oSelected to iColumn
Move (SizeOfArray(aData)) to iTop
For iCtr from 0 to (iTop-1)
Move aData[iCtr] to vOneRow
Move vOneRow.sRowID to sRowID
Move 0 to vOneRow.aCells[iColumn].sValue
Send DataSetUpdateRow sRowID vOneRow
Loop
End_Procedure
Procedure SelectTopSelections tWebRow[] aData Integer iTop
tWebRow vOneRow
String sRowID
Integer iCtr iColumn
Get piColumnPosition of oSelected to iColumn
For iCtr from 0 to (iTop-1)
Move aData[iCtr] to vOneRow
Move vOneRow.sRowID to sRowID
Move 1 to vOneRow.aCells[iColumn].sValue
Send DataSetUpdateRow sRowID vOneRow
Loop
End_Procedure
Procedure OnProcessDataSet tWebRow[] aData Integer eOperation Integer iSelectedRowIndex
Integer iTop
WebGet psValue of oTopCount to iTop
Send ResetAllSelections aData
Send SelectTopSelections aData iTop
End_Procedure