>*---------------------- Location Section ------------------------ >* Library: Aformssearch.vcx >* Class: Frmquicksearch >* Method: Registercontrols() >*----------------------- Usage Section -------------------------- >*) Description: >*) > >* Scope: Public >* Parameters: >*$ Usage: >*$ >* Returns: >*--------------------- Maintenance Section ---------------------- >* Change Log: >* CREATED 05/20/2005 - NN >* MODIFIED >*---------------------------------------------------------------- >lparameters tcClassName, tcNamedSearch > >with thisform.oSearchCollection > if .getkey(m.tcNamedSearch) = 0 > .add(m.tcClassName, m.tcNamedSearch) > endif >endwith >>
with thisform.oSearchCollection * here exists a bug, and Getkey can return .T. * workaround: retry getkey(), none bug for the second call if EMPTY(LEN(.getkey(m.tcNamedSearch))) .add(m.tcClassName, m.tcNamedSearch) endif endwith