PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 06/04/02 09:17:02 AM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 238 Width = 512 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; Height = 84, ; Left = 12, ; Top = 12, ; Width = 480, ; Name = "Grid1" ADD OBJECT grid2 AS grid WITH ; Height = 96, ; Left = 12, ; Top = 120, ; Width = 481, ; Name = "Grid2" PROCEDURE Init create cursor mst (f1 i) insert into mst values (1) insert into mst values (2) insert into mst values (3) create cursor child (f1 i, f2 c(1)) index on f1 to child insert into child values (1,'A') insert into child values (1,'B') insert into child values (1,'C') insert into child values (1,'D') insert into child values (1,'E') insert into child values (1,'F') insert into child values (1,'G') insert into child values (1,'H') insert into child values (1,'I') insert into child values (1,'J') insert into child values (1,'K') insert into child values (2,'L') insert into child values (2,'M') select mst go top set relation to f1 into child thisform.grid1.RecordSource = 'mst' thisform.grid1.RecordSourceType = 1 thisform.grid2.RecordSource = 'child' thisform.grid2.RecordSourceType = 1 ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************