select 2
use chabxj
zap
append from gzk2007
append from gzk2008
append from gzk2009
cha=trim(thisform.text1.value)
LOCATE FOR allt(chabxj.编号)==allt(cha)
IF .not.found().or.cha==""
=messagebox( "您所输入的编号不存在,请重新输入!",48+0+0,"警告")
thisform.text1.value=""
thisform.text1.setfocus
else
report form chaylj.frx to printer prompt preview for allt(chabxj.编号)==allt(cha)
endi
select 1
红色部份如何能不能实现动态的追加，因为表在不断的增加。不知如何写？急请大侠指点
------解决方案--------------------------------------------------------
for i=2007 to 2030
j=trim(trans(i))
append from gzk&j
endfor