como activo la busqueda incremental en el dbcombo ?

[tosko]

este es mi dbcombo ?


odbInspect:Activate()
odbInspect:SetOrder(2)
Redefine dbCombo oIns var odbDGFolios:id id 107 of oDlg;
Alias "Inspect" ;
ListFIeld 'inspector';
ItemField 'idc'
oIns:cToolTip:="Selecciona un Inspector..."
oIns:cSearchKey() <--- Es correcto ?


un cable por favor....
Gracias

[tosko]

La respuesta la encontre despues de indagar en el source de la classe, bien, funciona de esta manera:

Primero cambiamos en el recurso el estilo del combo a drop drownlist (ya que yo uso el Resource Builder, pero en WorkShop lo pone asi por default) y se define de esta manera:

Redefine dbCombo oIns var odbDGFolios:id id 107 of oDlg;
Alias "Inspect" ;
ListFIeld 'inspector';
ItemField 'idc'
oIns:cSearchKey('inspector') <---- Asip
oIns:cToolTip:="Selecciona un Inspector..."

si son observadores inspector es el ListFiled de combo, es posible mejor cambiar el data por una mas practico creo yo en mi mas humilde opinion, llamarlo data lAutoComplete para activarlo solo con un valor logico .t. o .f., simpre buscamos o browseamos por el ListField... aqui les dejo el dato y como comente solo una sugerencia..

Prodiamos llamar de esta manera:
Redefine dbCombo oIns var odbDGFolios:id id 107 of oDlg;
Alias "Inspect" ;
ListFIeld 'inspector';
ItemField 'idc'
oIns:lAutoComplete:=.t. <---- mas simple y facil para todos
oIns:cToolTip:="Selecciona un Inspector..."


Repito sugereincia.