Me gustaría que me tiráseis una manita con el siguiente código que os pongo. Es una búsqueda incremental en un RecordSet y, la búsqueda la hace bien,
peeeeeeeeeeeeeroooooooo, no doy con la forma de ver que estoy escribiendo, no me pinta nada en el SAY oTexto.
¿Me podéis decir que hago mal, para que no me pinte lo que tecleo?
- Code: Select all Expand view
- DEFINE DIALOG oDlgBus RESOURCE "BUSCARCLIE" COLOR RGB(0,0,0),RGB(153,204,153)
oBrwCli := TXBrowse():New( oDlgBus )
oBrwCli:bSeek := { |c| BuscaIncr( oRsClie,c,"Nombre",oDlgBus) }
oBrwCli:oSeek := oTexto
oBrwCli:SetAdo(oRsClie,.T.,.T.)
oBrwCli:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrwCli:nColDividerStyle := LINESTYLE_BLACK
oBrwCli:nRowDividerStyle := LINESTYLE_BLACK
oBrwCli:lColDividerComplete := .t.
for nFor := 1 to len( oBrwCli:aCols )
oCol := oBrwCli:aCols[ nFor ]
oCol:nEditType := 0
next
oBrwCli:aCols[1]:nWidth := 60
oBrwCli:aCols[2]:nWidth := 500
oBrwCli:CreateFromResource(2001)
REDEFINE SAY cTexto ID 4001 OF oDlgBus ;
COLOR RGB(0,0,0),RGB(153,204,153)
REDEFINE SAY oTexto Var cNombre ID 4002 PICTURE "@!" of oDlgBus UPDATE;
COLOR RGB(0,0,0),RGB(204,204,102)
......
botones y Activar el dialogo
La Función BuscaIncr es la que se encarga de hacer la búsqueda, si hay alguna forma de hacerlo mejor, soy todo ojos....