estética de grid en un form

Hola Ricardo:

Pues hay un método infalible, un cursor "fantasma". Mira cómo lo explica de
bien Andy Kramek.

1.- Utilizar un select seguro para preservar los grids (Andy Kramek)
Traducción

http://www.panoramabox.com/GoPub.aspx?IdObj684




Saludos,

Ana
www.amby.net

"Ricardo Soto" escribió en el mensaje
news:Or$%

Estimados Foxeros :
Hace mucho tiempo que tengo un problema con los grids en mis formularios;
creo por código una consulta usando Select... y lo envio a Into Cursor
Vista1; muestro el resultado en un grid "bonito", con header, títulos,
colores; pero necesito pedir, por ejemplo, los pedidos de otro cliente
usando el mismo Select, y el resultado lo envio al mismo grid "bonito" que
creé; pero lo desordena por completo... cambia los header los tamaños de
columna.

¿cómo lo hago para mantener el mismo diseño? tengo un truco que me
resulta, pero no me gusta, pues es un paso obligado, si el usuario no lo
usa pasa lo que les digo...

adios


¡Nada corre cómo un zorro, adelante adelante adelante VFP!


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Estimados :

No me funciona el ReadWrite, será por que tengo el VFP6..., si es así ya
me actualizaré

Adios



¡Nada corre cómo un zorro, adelante adelante adelante VFP!


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Saludos !

Talves sea un poco tardio, pero como dice Ana Maria es necesario reservar
el grid, un amigo Lhuis Rea me paso el siguiente cachito de codigo que me
ayudo a mi:

Primeramente como abarcas das estetica a tu grid, posteriomente...

***********Creacion de cursor
create cursor CrsUsuarios(usuario c(12), fechahoy d, fechajust d)
thisform.grid.RecordSource = ''
***********Asignamos el cursor
thisform.grid.RecordSource = "CrsUsuarios"
//
//////////////Aqui tus operaciones
//
***********posteriormente el vaciado
local cursortmp
cursortmp = alltrim(thisform.grid.recordsource)
select(cursortmp)
go top
thisform.grid.Refresh

Espero te sirva...
Hasta pronto


****************************
M O N J E
Marco Antonio Mendez Bueno
Cd. Valles, San Luis Potosi, México
****************************

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Bueno amigo pues a mi me ha pasado y lo hago talvez un poco mas a la
antigua pero me funciona de maravilla pues en el archivo init del grid
agrega el ancho de cada columna como el como el recorsource de cada
columna y si kieres los colores de emcabezado asi como el texto del mismo
como ejemplo:

INIT

this.RecordSource="tabla"
this.column1.ControlSource="tabla.campo"
this.column1.header1.Caption="texto"
this.column1.header1.BackColor%5
this.column1.Width

asi con cada columna y puedes cambiar tus datos desde el entorno de datos
en el init del dataenvironment asi puedes asignar cualkier tabla a tu grid
sin afectar el mismo solo recuerda ke debes habrir las distintas tablas
luego de correr tu formulario, pon en la propiedad del dataenvironment
AutoOpenTables=.f. y luego en el init:

If Type("variable_")="O"
This.cursor1.Database =variable_.DIRSISTEMA+"SISTEMA.DBC"
This.cursor2.Database =variable_.directorio+"datos.DBC"
Endif
This.OpenTables


variable_ es un objeto donde se encuentra almacenada la direccion fisica
de la base de datos sistema
y dirsistema la base de datos donde se encuentra la tabla del crusor 1
y directorio la base de datos del crusor 2
esto te ayuda cambiar las tablas desde el inicio y por medio de variables
ke puedes asignar en un formulario previo dar valor a estas variables.
Espero haberte ayudado y no haberme salido mucho de tu problema.


La astucia del zorro depende de ti... pues haslo crecer... colabora...


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Saludos !

El mismo compañero que tuvo la necesidad de "estetica del grid" tambien
tuvo en su haber la curiosidad por hacer su cursor modificable, trabajando
con la version 6 de VF, tambien el amigo Lhuis Rea me proporciono este
truco, que comparto contigo

SELECT * FROM Balanza WHERE ntipo = 0 GROUP BY cNum_Cta INTO CURSOR
BalanzaSM
SELECT BalanzaSM

*******Funcion para hacer cursor modificable**************************
CursorModificable("BalanzaSM")

Ahora puedes hacer...
REPLACE campo1 WITH "ASDASDF" ó un Append Blank


FUNCTION CursorModificable
LPARAMETERS tcalias
IF TYPE("tcAlias") = "L"
RETURN .F.
ENDIF
LOCAL lcAlias
lcAlias = "_OtroAlias"
USE DBF(tcAlias) IN 0 AGAIN ALIAS (lcAlias)
USE DBF(lcAlias) IN (tcAlias) AGAIN ALIAS (tcAlias)
USE IN (lcAlias)
ENDFUNC

Hasta pronto espero te sirva...



****************************
M O N J E
Marco Antonio Mendez Bueno
Cd. Valles, San Luis Potosi, México
****************************


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway