X = CREATEOBJECT("Form1") X.SHOW(1) ************************************************** *-- Form: form1 (d:\program files\microsoft visual foxpro 8\x.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 04/09/04 08:17:07 PM * DEFINE CLASS form1 AS form DataSession = 2 DoCreate = .T. ADD OBJECT grid1 AS grid WITH ; Height = 192, ; Left = 12, ; Top = 12, ; Width = 348, ; AllowCellSelection = .F., ; Name = "Grid1" ADD OBJECT command1 AS commandbutton WITH ; Top = 216, ; Left = 276, ; Height = 27, ; Width = 84, ; Caption = "Command1", ; Name = "Command1" PROCEDURE Init SET MULTILOCKS ON CREATE CURSOR X (Day D, Desc C(100) DEFAULT STR(RECCOUNT())) INDEX ON Day TAG day DESC CURSORSETPROP("Buffering",3,"X") * WA1 SET ORDER TO * WA2 * CURSORSETPROP("Buffering",1,"X") THISFORM.grid1.RecordSource = "X" ENDPROC PROCEDURE command1.Click INSERT INTO x (Day) VALUES (DATE()+RECCOUNT()) * WA3 * TABLEUPDATE() THISFORM.Refresh ENDPROC ENDDEFINEACTIVATE one of the 3 WA line code, and the bug is skipped.