Thanks for your note.
I add thisform.grid1.recordsource = "Table1" to init of my form.
But i get this error:

Parent object will not allow this property setting for form1.grid1.column1.text1.ControlSource

can you make a form with this two table for me? i need to this sample.
Thank you very much

>You must set the recordsource of the grid to the master table

>thisform.grid1.recordsource = "Table1"

>And note that you can simplify the table setup

>CLOSE DATABASES
>USE "d:\00 vfp projects\alaki\table1.dbf" SHARED TAG Acode && In 0 not necessary since the last command closed the databases
>USE "d:\00 vfp projects\alaki\table2.dbf" IN 0 SHARED TAG Acode
>&& SELECT table1 - Not necessary since Table1 is already selected
>SET RELATION TO Acode INTO table2

>
>
>
>>Dear Tore,
>>I made a form with a grid in it.
>>I save my form as a class as below.
>>Table1 (ACode N(5,0), Name C(10))
>>Table2 (ACode N(5,0), Family C(10))
>>
>>I set Relation in init of form.
>>But an error was occured.
>>where i do wrong?
>>Thanks
>>
>>

>>**************************************************
>>*-- Class:        myclass (d:\00 vfp projects\alaki\rezaclass.vcx)
>>*-- ParentClass:  form
>>*-- BaseClass:    form
>>*-- Time Stamp:   08/01/06 02:15:08 PM
>>*
>>DEFINE CLASS myclass AS form
>>
>>
>>	Top = 0
>>	Left = 0
>>	Height = 207
>>	Width = 375
>>	DoCreate = .T.
>>	Caption = "Form1"
>>	LockScreen = .F.
>>	Name = "form1"
>>
>>
>>	ADD OBJECT grid1 AS grid WITH ;
>>		ColumnCount = 2, ;
>>		DeleteMark = .F., ;
>>		GridLines = 3, ;
>>		GridLineWidth = 1, ;
>>		HeaderHeight = 20, ;
>>		Height = 120, ;
>>		Left = 37, ;
>>		RecordMark = .F., ;
>>		RecordSource = "", ;
>>		ScrollBars = 3, ;
>>		Top = 36, ;
>>		Width = 295, ;
>>		ForeColor = RGB(0,0,0), ;
>>		BackColor = RGB(255,255,255), ;
>>		GridLineColor = RGB(192,192,192), ;
>>		Name = "Grid1", ;
>>		Column1.ControlSource = "", ;
>>		Column1.ForeColor = RGB(0,0,0), ;
>>		Column1.BackColor = RGB(255,255,255), ;
>>		Column1.Name = "Column1", ;
>>		Column2.ControlSource = "", ;
>>		Column2.Width = 200, ;
>>		Column2.ForeColor = RGB(0,0,0), ;
>>		Column2.BackColor = RGB(255,255,255), ;
>>		Column2.Name = "Column2"
>>
>>
>>	ADD OBJECT myclass.grid1.column1.header1 AS header WITH ;
>>		Caption = "Header1", ;
>>		Name = "Header1"
>>
>>
>>	ADD OBJECT myclass.grid1.column1.text1 AS textbox WITH ;
>>		BorderStyle = 0, ;
>>		Margin = 0, ;
>>		ForeColor = RGB(0,0,0), ;
>>		BackColor = RGB(255,255,255), ;
>>		Name = "Text1"
>>
>>
>>	ADD OBJECT myclass.grid1.column2.header1 AS header WITH ;
>>		Caption = "Header1", ;
>>		Name = "Header1"
>>
>>
>>	ADD OBJECT myclass.grid1.column2.text1 AS textbox WITH ;
>>		BorderStyle = 0, ;
>>		Margin = 0, ;
>>		ForeColor = RGB(0,0,0), ;
>>		BackColor = RGB(255,255,255), ;
>>		Name = "Text1"
>>
>>
>>	PROCEDURE Init
>>		CLOSE DATABASES
>>
>>		USE "d:\00 vfp projects\alaki\table1.dbf" IN 0 SHARED
>>		USE "d:\00 vfp projects\alaki\table2.dbf" IN 0 SHARED
>>
>>
>>		SELECT table2
>>		SET ORDER TO TAG ACode
>>		SELECT table1
>>		SET ORDER TO TAG ACode
>>
>>		SET RELATION TO Acode INTO table2
>>
>>
>>		thisform.grid1.column1.text1.ControlSource = "Table1.Name"
>>		thisform.grid1.column2.text1.ControlSource = "Table2.family"
>>	ENDPROC
>>
>>
>>ENDDEFINE
>>*
>>*-- EndDefine: myclass
>>**************************************************
>>