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...