程序如下：
 SELECT ybqyrq
   USE
   USE D:/jyqy/ybqyrq
   locate for alltrim(rtrim(ybqyrq.姓名))==''
     do while found()
     dele
     CONTINUE
     enddo
     thisform.LockScreen= .T.
     pack
     
   thisform.grid1.ColumnCount =-1
   thisform.grid1.RecordSourceType = 1
   thisform.grid1.RecordSource ='ybqyrq'
   thisform.LockScreen= .F.
   thisform.Refresh

[此贴子已经被作者于2019-10-25 11:02编辑过]

红色这句的存在　系统进入继续查找中，所以……

thisform.grid1.ColumnCount =-1 这句会导致表格的设置恢复默认。
用thisform.grid1.ColumnCount = fcount()

建议 1.USE D:\jyqy\ybqyrq excl ,这一句,放在表单打开前,或打开的起始阶段.2.表单运行期间尽量不用 pack,和重置表格数据源.去掉麻烦的再设置
3.使用 select..,zap,append from ..,刷新表格数据源.  这样,表格的设置不会发生任何改变.

   

USE D:/jyqy/ybqyrq
USE D:\jyqy\ybqyrq

感谢各位老师的指导，我先试下，不懂再问，谢谢！

老师你好，我是在表单里添加了一个表格用于录入信息，表格设置了向下光标键可用，末行回车换行，hearder的字体及大小，列数列宽等，数据环境表ybqyrq，表初始时只有一条空记录（无空记录表格不可用），录入时空姓名是无效记录，跳空行录入也是无效记录，需要删除。如果用ZAP会弹出一个确认对话框，可否设置不弹出？另外，appen from应该是从其它地方取数据过来存储啊？

换换思路如何?

close all
set talk off
set safety off && zap 时对话框不再出现

USE D:\jyqy\ybqyrq excl in 0
append blank
do 表单名
   read event
   **************************

   ** 表单内删除一条空姓名记录时,可用:
   select * from ybqyrq into cursor tt where !empty(姓名)
   sele ybqyrq
   zap
   thisform.grid1.refresh && 刷新一次表单内的表格,防止显示滞后(假如表格是 grid1,并且在单表单中)
   append from dbf('tt')
   append blank
   thisform.grid1.refresh && 再刷新一次表单内的表格(多刷新的目的,是为了表格的正常显示)
  
   ** 建议表格的设置,列宽,数据源等需要预先设定好,程序运行中尽量不要再用代码去改动它们.
   那个 cursor tt 是个任意名称可以不管它.也可以随时关闭它.用
   if used('tt')
      sele tt
      use
   endif
   
  ** 如果 D:\jyqy\ybqyrq 是个很大的存储表,建议,把此表先复制成一个同结构的空表,比如: copy struc to ybqyrq_k ,
  用 use ybqyrq_k excl in 0 ,代替上面的 USE D:\jyqy\ybqyrq excl in 0,录入结束时将 ybqyrq_k 的数据放入 ybqyrq

   
   
   


   
   

[此贴子已经被作者于2019-10-30 22:38编辑过]

谢谢老师，按照您的方法问题改决了！