>oForm = createobject('form') >? oForm.DataEnvironment.Name >Ramil,
Public oForm oForm = Createobject('form') oForm.AddProperty('Dataenvironment',Createobject('Dataenvironment')) With oForm.DataEnvironment .CloseTables .Newobject('Cursor1','cursor') .Cursor1.Database = 'c:\myPath\testdata.dbc' .Cursor1.CursorSource = 'employee' .Cursor1.Alias = 'myEmp' .OpenTables Endwith With oForm .Newobject('grid1','grid') .Grid1.RecordSource = 'myEmp' .Grid1.Visible=.T. .Show EndwithCetin