>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT grid1 AS grid WITH ; > Height = 200, ; > Left = 24, ; > Top = 36, ; > Width = 320, ; > Name = "Grid1" > > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 6, ; > Left = 45, ; > Height = 27, ; > Width = 84, ; > Caption = "ZAP", ; > Name = "Command1" > > > PROCEDURE Load > CREATE CURSOR AA (BB I) > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > LOCATE > ENDPROC > > > PROCEDURE command1.Click > SELECT AA > ZAP > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > APPEND BLANK > replace ALL bb WITH 2 > LOCATE > =m.thisform.grid1.Refresh() && added this > && BROWSE > ENDPROC > >ENDDEFINE >* >try with PACK or CursorFill()
PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; Height = 200, ; Left = 24, ; Top = 36, ; Width = 320, ; Name = "Grid1" ADD OBJECT command1 AS commandbutton WITH ; Top = 6, ; Left = 45, ; Height = 27, ; Width = 84, ; Caption = "PACK", ; Name = "Command1" PROCEDURE Load CREATE TABLE AA (BB I) APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK LOCATE ENDPROC PROCEDURE command1.Click SELECT AA DELETE RECORD 1 PACK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK replace ALL bb WITH 2 LOCATE =m.thisform.grid1.Refresh() && added this && BROWSE ENDPROC ENDDEFINE