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
这段总是提示无效路径名

如果原来不存在路径 xjsj ，应该首先用 mkdir "xjsj" 创建一个，之后，才能使用 select * ...into table xjsj\..

按下面改了，试试：
local lchzbh,wjm,m
Select Distinct hzbh From qybt Into Cursor aaaa
do while !eof()
    lchzbh=hzbh
    wjm="qybt"+alltri(lchzbh)
    m="select * from qybt where hzbh=lchzbh into table &wjm"
    &m
    select aaaa
    skip
enddo