>>*---------------------- 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 >Hi Fabio,