请大侠指点？
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