mjose
31 de Diciembre del 2003

Hola !!!

Tengo una tabla donde quiero coger el ultimo valor del campo_A pero con el Go Bottom no me lo hace bien.
Select campo_A from tabla into cursor aux
var1=aux.campo_A
¿ Que hago mal ?
Es q luego debo de ir incrementandolo.

Edward Robles
31 de Diciembre del 2003

Hola, me imagino que lo que tu deseas hacer es esto:
Si estas trabajando con un formulario y, en el deseas ver el primer registro de la base de datos, el siguiente, el antrior y el ultimo, todo esto por medio de botones, puedes colocar lo siguiente en el boton que te lleva al ultimo registro:

**************************************************
sele dbfprovee

if reccount()=0
return
endif

go botto
scatter memvar
thisform.refresh()
***************************************************
Solamente eso, prueba y me respondes si te funciona o no, para ver que mas podemos hacer.

ATTE.
Edward (Salvadoreño)

SAM
31 de Diciembre del 2003

HOLA
SOLO APLICA LO SIGUIENTE
SELE AMIGO
COUNT TO A
GO A
SCATTER MEMVAR
THISFORM.TEXT1.TEXT=M.DIRECCIO
Y LISTO SI QUIERES AGRAGAR MAS DATOS
SOLO AUMENTA A=A+1

sgomez
31 de Diciembre del 2003

Es que te está faltando el WHERE en el SELECT con la condición para que te traiga solamente el registro de interés.
Quedaría:

Select campo_A from tabla where campo_ID="50" into cursor aux

De esta forma traés el registro con el id numero 50. (es un ejemplo)

Wilebaldo
31 de Diciembre del 2003

Hola tengo un codigo que hicimos un amigo y yo endonde te puedes desplasas por una tabla dentro de un formulario mediante los botones: "Inicio", "Anterio" , "Siguiente" y "Ultimo".

Espero que te sirva por que a nosotros nos a servido mucho en casi todos nustros proyectos:

Boton Inicio
Evento clic
go top
This.enabled=.f.
ThisForm.CmdAnterior.enabled=.f.
ThisForm.CmdSiguiente.enabled=.t.
ThisForm.CmdUltimo.enabled=.t.
thisform.refresh()

Boton anterior
Evento clic
skip -1
if bof()
ThisForm.CmdPrimero.enabled=.f.
This.enabled=.f.
ThisForm.CmdSiguiente.enabled=.t.
ThisForm.CmdUltimo.enabled=.t.
go top
else
ThisForm.CmdSiguiente.enabled=.t.
ThisForm.CmdUltimo.enabled=.t.
endif
thisform.refresh()

Boton siguiente
Evento clic
skip
if eof()
ThisForm.CmdPrimero.enabled=.t.
ThisForm.CmdAnterior.enabled=.t.
This.enabled=.f.
ThisForm.CmdUltimo.enabled=.f.
go bottom
else
ThisForm.CmdPrimero.enabled=.t.
ThisForm.CmdAnterior.enabled=.t.
endif
thisform.refresh()

boton ultimo
evento clic
go bottom
ThisForm.CmdPrimero.enabled=.t.
ThisForm.CmdAnterior.enabled=.t.
ThisForm.CmdSiguiente.enabled=.f.
This.enabled=.f.
thisform.refresh()

Fernando
31 de Diciembre del 2003

Hola
Creo que lo que quieres es un campo que se incrementa y necesitas ver el valor máximo utiliza:

Select max(campo_A) from tabla into cursor aux

También puedes utilizar el comando:

Select tabla

Calculate max(tabla.campo_A) to var1

EFRAIN
31 de Diciembre del 2003

oye amigo, no soy muy experto, pero aver chaca esto
select tabla
go top
var1=tabla.campo_A

edi
31 de Diciembre del 2003

go bottom: nos ubica en el primer re gistro
go numero: nos permite ir algun numero en es pecico
es cribes go y el numero de re gistro donde quieres ir
y go top nos ubica en el ul timo re gistro