程序代码：

create cursor 新表 (列1 n(9),列2 n(9),列3 n(9))
create cursor tt (x n(1))
for lnI=1 to 7
    insert into tt values (lnI)
endfor
select "列"+transform(a.x)+","+"列"+transform(b.x)+","+"列"+transform(c.x) 列 from tt a ;
join tt b on a.x<b.x ;
join tt c on b.x<c.x into cursor test
scan
    aa=列
    insert into 新表 Select &aa from 原表
endscan
select 新表
browse