Tsbrowse: Posicionando el cursor en un registro especifico
Posted: Wed Mar 26, 2008 2:42 pm
Esto tratando, cuando abro una tabla, de posicionar el cursor en un registro especifico (por ejempo en el registro No. 10).
Si uso el Browse de fivewin funciona bien, pero cuando uso Tsbrowse siempre se posiciona en el primer registro.
Exite algun metodo en Tsbrowse para indicarle que cuando abra la tabla se posicione el cursor en un registro especifico?
Aqui esta el codigo que estoy usando:
Alguna sugerencia de que se debe hacer para que funcione en Tsbrowse?
Saludos,
George
Si uso el Browse de fivewin funciona bien, pero cuando uso Tsbrowse siempre se posiciona en el primer registro.
Exite algun metodo en Tsbrowse para indicarle que cuando abra la tabla se posicione el cursor en un registro especifico?
Aqui esta el codigo que estoy usando:
Code: Select all
FUNCTION SelectStateI(cInitST)
LOCAL oDlg, oBrw, cAlias
DEFINE DIALOG oDlg RESOURCE "BROW_ST"
dbselectarea("STATES")
dbsetorder("STNAMES")
cAlias := alias()
REDEFINE BROWSE oBrw of oDlg ID 101
IF len(alltrim(cInitST)) > 0
dbsetorder("STCODES")
if dbseek(cInitST)
// El cursor se debe posicionar en este registro.
// Funciona perfecto con TWbrowse de Fivewin
// NO funciona si uso Tsbrowse
endif
dbsetorder("STNAMES")
ELSE
dbgotop()
ENDIF
ADD COLUMN TO BROWSE oBrw TITLE "State name" DATA (cAlias)->ST_NAME ;
WIDTH 200
ADD COLUMN TO BROWSE oBrw TITLE "Code" DATA (cAlias)- >ST_ABREV;
WIDTH 35
ADD COLUMN TO BROWSE oBrw TITLE "Country" DATA (cAlias)->COUNTRY;
WIDTH 80
oDlg:lHelpIcon := .F.
ACTIVATE DIALOG oDlg CENTER
RETURN (.T.)
Alguna sugerencia de que se debe hacer para que funcione en Tsbrowse?
Saludos,
George