Datenraster-Steuerelement (Grid)
Erzeugt ein Datenraster.
Grid
Hinweise
Ein Datenraster ist ein Container-Objekt, das Daten in Zeilen und Spalten darstellt und einem Datenblattfenster ähnlich sieht. Ein Datenraster ist darüber hinaus ein Container-Objekt, das Spaltenobjekte enthält. Eine Spalte kann ein Spaltenkopf-Objekt und Steuerelemente enthalten. Sie haben vollständige Kontrolle über jedes Element im Datenraster, da das Datenraster und seine Spalten, Spaltenköpfe und Steuerelemente alle ihren eigenen Eigenschaften haben. Sie können ein Datenraster interaktiv mit Hilfe des Datenraster-Steuerelement-Assistenten erstellen.
Weitere Informationen zum Erstellen von Datenrastern finden Sie unter Verwenden von Steuerelementen.
Beispiel
Das folgende Beispiel platziert ein Datenraster-Steuerelement (Grid) in einem Formular. Die Tabelle customer
wird geöffnet und ihr Inhalt im Datenraster angezeigt. Mit der Caption-Eigenschaft wird eine andere Spaltenkopfbeschriftung (Customer ID) für das Feld CUST_ID festgelegt. Zum Schließen des Formulars wird eine Befehlsschaltfläche auf dem Formular eingefügt.
Die SetAll-Methode wird zusammen mit der DynamicBackColor-Eigenschaft verwendet, um die Hintergrundfarben für die Datensätze anzugeben. Wenn die Nummer des im Datenraster dargestellten Datensatzes gerade ist, dann ist DynamicBackColor für diesen Datensatz Weiß, ansonsten Grün.
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
Siehe auch
Eigenschaften, Methoden und Ereignisse des Datenraster-Steuerelements | Spaltenobjekt | CREATE CLASS | CREATE FORM | DEFINE CLASS | Header-Objekt