>LPARAMETER cTablename >Select (cTablename) >With This.Mycombobox > .rowsourcetype=0 > .sorted=.t. > .clear > For nLoop=1 to Fcount() > .additem(field(nLoop)) > Endfor >Endwith >