lparameters tnColumn local i, lcValue, lnColumn if empty(tnColumn) or vartype(tnColumn) <> 'N' tnColumn = 1 endif if not between(tnColumn,1,this.listbox.columncount) tnColumn = 1 endif lcvalue = '' for i = 1 to this.listbox.listcount lcValue = lcValue + this.listbox(i,tnColumn) + chr(13) + chr(10) endforGlenn
>local i, lcValue >lcvalue = '' >for i = 1 to this.listbox.listcount > lcValue = lcValue + this.listbox(i) + chr(13) + chr(10) >endfor >>