表单内有2个grid,为何向某1个grid 添加数据时,另一个grid也加入了同样的数据?
mucel 2002-11-12 09:25:40 表单内有2个grid,为何向某1个grid 1添加数据时,另一个grid2也加入了同样的数据?
如何屏蔽向另一个GRID2输入数据:
表单 init:
set safety off
select bz
index on contr_id tag contr_id
set order to contr_id
thisform.grid1.refresh
(插入)button .click
select bz
locat for contr_id=alltrim(thisform.edit1.value) and use_name=alltrim (thisform.edit2.value)
if !found()
Insert into bz(contr_id,use_name) values(alltrim(thisform.edit1.value),alltrim(thisform.edit2.value))
thisform.edit1.value=""
thisform.edit2.value=""
wait windows "成功添加新数据!" nowait
else
wait windows "要添加的合同号已存在!" nowait
THISFORM.GRID1.REFRESH
endif