Results 1 to 2 of 2

Thread: onProcessDataSet question

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #2
    Join Date
    Feb 2009
    Posts
    2,162

    Default Re: onProcessDataSet question

    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
    Last edited by Chris Spencer; 24-Oct-2016 at 10:13 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •