>>>*---------------------- 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 >>>