>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 >Thank you for the code. What is the error 1839?