Fecha actual Mié Jun 26, 2024 12:58 pm

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 4 mensajes ] 
Autor Mensaje
 Asunto: Items en DBGrid
NotaPublicado: Dom Feb 26, 2006 11:41 am 

Registrado: Lun Nov 21, 2005 5:19 am
Mensajes: 40
Hola Bruno.

Cuando cargo una matriz con datos y esos datos los cargo en el DBGrid de esta forma:

DbGoTop()
DbSetOrder( 2 )
aRegi:= {}

DbSeek( Val( nPara1 ) )

Do While (!Eof()) .and. ( Field->Codigo ) == Val( nPara1 )

aCamp := {}
AAdd( aCamp, str(Recno()))
AAdd( aCamp, DtoC(Field->Fecha ))
AAdd( aCamp, Str(Field->Codigo ))
AAdd( aCamp, Field->Concepto )
AAdd( aCamp, Str(Field->Ingreso ))
AAdd( aCamp, Str(Field->Gasto ))
AAdd( aRegi, aCamp )

DbSkip()

End Do

FrmProgPrin:oGrid1:Items := aRegi

No funciona, sin embargo si el objeto es un TStrigGrid funciona bien pero yo quiero hacerlo con TDBGrid.

¿ Qué puede pasar ? ¿ Estoy haciendo algo mal ?

Saludos

_________________
Inazio Bilbao


Arriba
 Perfil  
Responder citando  
NotaPublicado: Dom Feb 26, 2006 12:14 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
Inazio escribió:
Hola Bruno.

Cuando cargo una matriz con datos y esos datos los cargo en el DBGrid de esta forma:

DbGoTop()
DbSetOrder( 2 )
aRegi:= {}

DbSeek( Val( nPara1 ) )

Do While (!Eof()) .and. ( Field->Codigo ) == Val( nPara1 )

aCamp := {}
AAdd( aCamp, str(Recno()))
AAdd( aCamp, DtoC(Field->Fecha ))
AAdd( aCamp, Str(Field->Codigo ))
AAdd( aCamp, Field->Concepto )
AAdd( aCamp, Str(Field->Ingreso ))
AAdd( aCamp, Str(Field->Gasto ))
AAdd( aRegi, aCamp )

DbSkip()

End Do

FrmProgPrin:oGrid1:Items := aRegi

No funciona, sin embargo si el objeto es un TStrigGrid funciona bien pero yo quiero hacerlo con TDBGrid.

¿ Qué puede pasar ? ¿ Estoy haciendo algo mal ?

Saludos


Hola, Inazio.

Creo que estas un poco 'liao'.

Si quieres mostrar los datos contenidos en un array la formula es la que utilizas. Pero debes de llenar TU el array, tal y como lo haces.

Pero si lo que quieres es mostrar los campos de una tabla, lo que tienes que hacer es lo siguiente:

Para definir los campos que quieres que aparezcan:
::DBGrid:Fields := { "Campo1", "Campo2" }

Alineaciones de los campos:
::DBGrid:Alignments := { taRightJustify, taCenter }

Cabeceras
::DBGrid:Header := { "Código", "Nombre" }

Y por ultimo el alias de la tabla:
::DBGrid:Alias := "AREA"

A ver si te sirve...

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Dom Feb 26, 2006 2:33 pm 
Hola Jesús.

Si, la verdad es que estoy un poco liado. Pero lo que quiero es otra cosa, te explico, quizá antes no lo hice del todo bien, además igual hay otra forma de hacerlo más fácil.

Cargo en la matriz los registros de una tabla que cumplen una condición, de modo que hago que los registros de la tabla que tiene el código 1 se cargan en la matriz y luego las visualizo. Jesús, a lo mejor hay otra forma, seguro que sí, pero no se me ocurre.

Uns salido y gracias por contestar.


Arriba
  
Responder citando  
 Asunto:
NotaPublicado: Dom Feb 26, 2006 2:34 pm 

Registrado: Lun Nov 21, 2005 5:19 am
Mensajes: 40
Siempre me pasa, el Invitado soy yo.

_________________
Inazio Bilbao


Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 4 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron