SELECT HealthCond,RecordDate,ResolvDate FROM OngoingHealth INTO CURSOR CurOnGoingHealth NOFILTER ; > WHERE OngoingHealth.HealthNum = mHealthNum > >mCondition = CurOnGoinghealth.HealthCond >mRecordDate = CurOnGoingHealth.RecordDate >mDateResolved = CurOnGoingHealth.ResolvDate > >thisform.pageframe1.page4.grid1.RecordSource = "CurOnGoingHealth" > >thisform.pageframe1.page4.Grid1.ColumnCount = 3 >thisform.pageframe1.page4.grid1.RowHeight = 100 >thisform.pageframe1.page4.grid1.column1.sparse = .f. > >thisform.pageframe1.page4.grid1.column1.header1.Caption = "Condition" >thisform.pageframe1.page4.grid1.column1.header1.FontName = "Tahoma" >thisform.pageframe1.page4.grid1.column1.header1.FontSize = 8 >thisform.pageframe1.page4.grid1.column1.Width = 300 > >thisform.pageframe1.page4.grid1.column2.header1.Caption = "Date Recorded" >thisform.pageframe1.page4.grid1.column2.header1.FontName = "Tahoma" >thisform.pageframe1.page4.grid1.column2.header1.FontSize = 8 >thisform.pageframe1.page4.grid1.column2.Width = 80 > >thisform.pageframe1.page4.grid1.column3.header1.Caption = "Date Resolved" >thisform.pageframe1.page4.grid1.column3.header1.FontName = "Tahoma" >thisform.pageframe1.page4.grid1.column3.header1.FontSize = 8 >thisform.pageframe1.page4.grid1.column3.Width = 80 > >thisform.pageframe1.page4.grid1.Refresh()A grid doesn't refresh unless it has focus.
CREATE CURSOR temp (test M) INSERT INTO temp VALUES ("this is a test of an editbox in a grid") INSERT INTO temp VALUES ("you should be able to see multiple lines with no problem") _screen.AddObject('x','grid') x=_screen.x x.column1.AddObject('eb','editbox') x.column1.CurrentControl='eb' x.Visible=.t. x.column1.Sparse=.f. x.column1.Width=100 x.RowHeight=42It may be something in your grid code, but I have no idea what.