>SELECT * FROM SEC_CA WHERE CATEGORY = UPPER(ALLTRIM(this.caption)) INTO CURSOR csrCA > >THISFORM.oDE.ADDOBJECT("ca"+this.caption, "caSectional") >oCA = EVALUATE("thisform.oDE.ca"+ ALLTRIM(this.caption)) > >WITH oCA > .Alias = "csr" + lcCategory > .BufferModeOverride = 5 > .CursorSchema = "" > .DataSourceType = "NATIVE" > .FetchSize = -1 > .KeyFieldList = "SECT_NO" > .SelectCmd = ALLTRIM(csrCA.Selcmd) > .Tables = ALLTRIM(csrCA.tablenames) > .UpdatableFieldList = ALLTRIM(csrCA.Updfldlst) > .UpdateNameList = ALLTRIM(csrCA.UpdnamLst) >* The following line gets the data AND automatically displays it in a browse window! >* Needless to say, that's very annoying. > .CursorFill() >ENDWITH >>