在表格控件过程  fterRowColChange的代码（表格的行、列号改变时发生）
jlh=Recno()  &&  jlh--记录号变量
Go jlh
Thisform.label1.Caption='当前记录'+Str(jlh,2)+'/总记录:'+Str(Reccount(),2)
Thisform.GRid1.Refresh
。。。。。。
delete
pack   && 表要以独占方式打开
Thisform.GRid1.Refresh
。。。。。
本人已编程测试
   QQ:965788818
Email:jfl2008a@