Grid (Control)

  • Artículo

Crea una cuadrícula.

Grid

Observaciones

Una cuadrícula es un objeto contenedor que muestra datos en filas y columnas, y que tiene un aspecto similar a una ventana Examinar. Grid es un objeto contenedor que contiene objetos columna. Una columna puede contener un objeto encabezado y controles. Puesto que una cuadrícula y sus columnas, encabezados y controles tienen su propio conjunto de propiedades, dispone de control completo sobre cada elemento de cuadrícula. Puede crear una cuadrícula de forma interactiva mediante el Generador de cuadrículas.

Para obtener información adicional acerca de cómo crear cuadrículas, vea Usar controles.

Ejemplo

El ejemplo siguiente incluye un control Grid en un formulario. Se abre la tabla customer y se muestra su contenido en la cuadrícula. La propiedad Caption se utiliza para especificar otro título de encabezado (Id. de cliente) para el campo CUST_ID. Se incluye un botón de comando en el formulario para cerrarlo.

El método SetAll se emplea con la propiedad DynamicBackColor para especificar los colores de fondo para los registros. Si el número de un registro mostrado en el Grid es par, el valor de DynamicBackColor del registro será blanco. En caso contrario, el valor de DynamicBackColor será verde.

CLOSE ALL  && Close tables and databases
OPEN DATABASE (HOME(2) + 'data\testdata')

USE customer  IN 0  && Opens Customer table

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the window pop-up menu

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && Add Command button
frmMyForm.AddObject('grdGrid1','Grid')  && Add Grid control

frmMyForm.grdGrid1.Left = 25  && Adjust Grid position

frmMyForm.grdGrid1.SetAll("DynamicBackColor", ;
   "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;
   , RGB(0,255,0))", "Column")  && Alternate white and green records

frmMyForm.grdGrid1.Visible = .T.  && Grid control visible
frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible
frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID'

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmdBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
      CLOSE ALL  && Close table and database
ENDDEFINE

Vea también

Grid (Control: propiedades, métodos y eventos) | Column (Objeto) | CREATE CLASS | CREATE FORM | DEFINE CLASS | Header (Objeto)