local lchzbh,wjm
Select Distinct hzbh From qybt Into Cursor aaaa
select aaaa
go top
do while !eof()
lchzbh=hzbh
wjm="qybt"+alltri(lchzbh)
select * from qybt where hzbh=lchzbh into table &wjm
select aaaa
skip
enddo
红颜色这段程序提示不能创建文件
select * from dbf1\qybt where hzbh=lchzbh into table xjsj\&wjm
这段总是提示无效路径名