home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / oct95 / chalf103.gif < prev    next >
Graphics Interchange Format  |  1996-05-22  |  17.7 KB  |  653x532  |  4-bit (16 colors)
   ocr: Paradox for Windows File Edit View Search Program Properties Tools Window Help 12 + a I l ur 9 to 100101 to UILISE-Lbratyl-Uses Uses ObjectPAL ncolumnsum (var tctmp icursor, aFld String) Number endUses method ncolumnsum (var tctmp TCursor, aFld String) Number returnlibutil2.ncolumnsun(tcTmp, aFld) endMethod - OTILZ.LSL-LIbrarylsnColumnsum" method ncolumnsum(uar tctmp iCursor, aFld string) Number var nurandiotal number enduar scan tctmp : try nurandiotal = nurandiotal + ccimp.(arld) onFail msgInfoc"Error", "Cannot calculate sum") nurandlotal.Dlank() quitLoop endtry endScan return(GrandTotal) en ...