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 *