假设你的原表名为mytable
local lcdwmc
Select Distinct dwmc From mytable Into Cursor xuanze 
select xuanze
go top
do while !eof()
lcdwmc=dwmc
select * from mytable where dmcm=lcdwmc into table &lcdwmc
select xuanze
skip
enddo
close all table