Public oForm oForm = Createobject("myForm") oForm.Show Define Class myForm As Form DataSession = 2 Height = 400 Width = 600 Add Object myGrid As Grid With ; Top=5,Left=5,Height=390,Width=590,RecordSource="customer",ColumnCount=5 Procedure Load Use (_samples+"data\customer") In 0 Use (_samples+"data\orders") In 0 Order Tag cust_id Select customer Set Relation To cust_id Into orders * Set Skip to orders Locate For Empty(orders.order_id) && show one initially Endproc Procedure Init With This.myGrid .Columns(3).ControlSource = "orders.cust_id" .Columns(4).ControlSource = "orders.order_id" .Columns(5).ControlSource = "orders.order_date" Endwith Endproc EnddefineCetin