当grid中只有一条记录时，
删除该条记录，
    DELETE
    skip -1
    thisform.grid1.ActivateCell(1,1)  
    thisform.grid1.setfocus

然后再增加一条问题
    append blank
    GO BOTTOM
    thisform.grid1.ActivateCell(1,1)  
    thisform.grid1.setfocus

此时表格中不会出现该条记录，再增加一条才会显示增加的两条记录，不知何故？

[此贴子已经被作者于2021-3-3 17:18编辑过]

thisform.refresh

不需要全部重画哦！

可以 ……column2.setfocus，column1.setfocus，移动下焦点解决，但是，当表格中只有一行一列数据，那又怎么办呢？

select tablename
thisform.grid1.recordsource = ""
append blank
go top
thisform.grid1.recordsource = "tablename"
GO BOTTOM
thisform.grid1.setfocus

*****OK