我也想学,等待有系统的讲解……
传统的做法,表格删除记录并使用zap命令后,重置表的数据源,可以使表格不发生白板,但表格里原有的控件和格式会失去。所以我在设计程序时将排好的表格保存为自定义类,在使用zap命令后,先将设及的表格移去,再将自定义的表格类添加就可以了。
为了抛砖引玉,先把我以前写过的程序中的有关代码剪出部分,是不完整的,仅供参考。
WITH thisform
SELECT jdk
DELETE
DO dpack with "jdk","监督监测数据管理屏幕"
.RemoveObject("grid1","grid")
.NewObject("grid1","jd_grid","my_类")
INDEX ON ydn*10000+ydy*100+ydr to jdidex
ENDWITH
PROCEDURE dpack
parameter dx1,dx2
SELECT &dx1
USE &dx1 EXCLUSIVE
PACK
USE &dx1 SHARED
ENDPROC
传统的做法,表格删除记录并使用zap命令后,重置表的数据源,可以使表格不发生白板,但表格里原有的控件和格式会失去。所以我在设计程序时将排好的表格保存为自定义类,在使用zap命令后,先将设及的表格移去,再将自定义的表格类添加就可以了。
为了抛砖引玉,先把我以前写过的程序中的有关代码剪出部分,是不完整的,仅供参考。
WITH thisform
SELECT jdk
DELETE
DO dpack with "jdk","监督监测数据管理屏幕"
.RemoveObject("grid1","grid")
.NewObject("grid1","jd_grid","my_类")
INDEX ON ydn*10000+ydy*100+ydr to jdidex
ENDWITH
PROCEDURE dpack
parameter dx1,dx2
SELECT &dx1
USE &dx1 EXCLUSIVE
PACK
USE &dx1 SHARED
ENDPROC
相互学习,互相交流,共同提高。