Creates a grid.
A grid is a container object that displays data in rows and columns, and is similar in appearance to a Browse window. A grid is also a container object that contains column objects. A column can contain a Header object and controls. Because a grid and its columns, headers, and controls each have their own set of properties, you have complete control over each element of the grid. You can create a grid interactively using the.
For additional information about creating grids, see.
The following example places a Grid control on a form. The customer table is opened and its contents are displayed in the grid. The Caption property is used to specify a different header caption (Customer ID) for the CUST_ID field. A command button is placed on the form to close the form.
The SetAll method is used with the DynamicBackColor property to specify the background colors for the records. If the number of a record displayed in the grid is even, the record's DynamicBackColor is white, otherwise its DynamicBackColor is green.
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