字段是文字，而不是数字，比如是学校名称。需要根据学校名称拆分成多个dbf,每个学校一个。想要一次性实现，而不是用copy to 一个一个生成。万分感谢啊！

可以

为了能快速的解决问题，最好上传相关数据

字段是文字，而不是数字，比如是学校名称。需要根据学校名称拆分成多个dbf
假设原表是 学生表(姓名,学号,学校)
select distinct 学校 from 学生表 into cursor 学校tmp
select 学校tmp
nm = ""
fn = ""
scan
 nm=allt(学校)
 fn = "d:\xxx\" + nm
 select * from 学生表 where allt(学校)=nm into table (fn)
endscan
这样就可以了，没测试。

[此贴子已经被作者于2022-3-24 17:28编辑过]

SELECT DISTINCT 学校名称 FROM 学生表 INTO CURSOR XX
SCAN
    SELECT * FROM 学生表 WHERE ALLTRIM(学生名称) == ALLTRIM(XX.学生名称) INTO (TABLE ALLTRIM(学生名称))
ENDSCAN

各位朋友可能是误解了庄主的意思，庄主是想【一句话】
而不是用一个程序代码段解决。

大哥们，我就是想要一个命令能根据xymc（学院名称）自动把这个表分成5个表，每个表里有该学院学生的数据，分出来的表格最好能直接以该学院名字命名，我是真的不懂，麻烦大哥们能一步一步告诉我操作，谢谢了。

4、5楼大哥有空的话，麻烦再给解答一下哈

5楼已经给出了代码，稍加修改即可

set safety off
close all
select distinct xymc from 示例表格 into cursor xx
scan
    select * from 示例表格 where alltrim(xymc) == alltrim(xx.xymc) into table alltrim(xx.xymc)
endscan
close all
quit

用数组的方法，试一试，可否？

set safety off
close all
select distinct xymc from 示例表格 where len(alltrim(xymc))>0 into array xmc
nNum = ALen(xmc,0)
For i = 1 TO nNum
    select * from 示例表格 where alltrim(xymc)==alltrim(xmc(i)) into table (xmc(i))
endfor
close all
quit

[此贴子已经被作者于2022-3-28 06:01编辑过]

一个命令恐怕没法实现