lparameters lUseCursorSchema, lNoData, nOptions, uSource if not pemstatus(this, 'lADO_Done', 5) this.addproperty('lADO_Done') endif if this.datasourcetype = [ADO] and not this.lADO_Done return endif local llSchema, llNoData, lnOptions, luSource llSchema = lUseCursorSchema llNoData = lNoData lnOptions = nOptions luSource = uSource if vartype(this.nFillOptions) <> "N" this.nFillOptions = -1 endif if pcount() < 1 or vartype(llSchema) <> "L" llSchema = this.usecursorschema endif if pcount() < 2 or vartype(llNoData) <> "L" llNoData = this.nodata endif if pcount() < 3 or vartype(lnOptions) <> "N" lnOptions = iif(this.datasourcetype = [ADO], this.nFillOptions, 0) endif local llRetVal if this.datasourcetype = [ADO] llRetVal = dodefault(llSchema, llNoData, lnOptions, this.oADO_Command) else if pcount() = 4 llRetVal = dodefault(llSchema, llNoData, lnOptions, luSource) else llRetVal = dodefault(llSchema, llNoData, lnOptions) endif endif nodefault if not m.llRetVal && There was an error trying to execute CursorFill local laError[1] aerror(laError) if laError[1,1] <> 1839 =ErrorMsg("Error trying to execute CursorFill method: " + laError[1,2] + ; chr(13) + chr(10) + "SelectCMD is " + this.selectcmd) ELSE if vartype(m.plStop) = "L" this.lRepeatRequery = not m.plStop endif endif endif return m.llRetVal