看了下,存在问题:
采用GRID处理数据,每次查询数据选择后都关闭数据表再重新创建“临时表”,这样GRID相等于重新初始化了,如果确用这种方式处理,必须要用动态创建GRID编程,在程序运行过程中定义GRID的数据源和列对象的数据等属性。
参考建议:
1、表单设计时,GRID的recordsourcetype=1、recordsource='临时表',各栏目数据源为临时表相关字段。
2、在表单的LOAD事件:
SET DEFAULT TO ADDBS(JUSTPATH(SUBSTR(SYS(16), AT(":", SYS(16))-1)))
SET SAFETY OFF
SELECT 选定,区域代码,用户编号,打印识别号 FROM DLWJ.DBF INTO TABLE 临时表.DBF
3、在查询按钮 CLICK 事件:
A1=ALLTRIM(THISFORM.TEXT1.Value)
IF LEN(A1)=0
A1=" "
ENDIF
SELECT 临时表
ZAP
APPEND FROM DLWJ.DBF FOR A1$ 用户编号
GO TOP
thisform.grid1.SetFocus