现有T1.dbf表文件，我想根据表中字段km的内容生成jsrkb.dbf(字段动态生成）［因为 km内容不固定，每学年会有变化］，请高手赐教，万分感谢！！！

[此贴子已经被作者于2025-4-4 16:43编辑过]

是这个意思吗？

close all
create dbf jsrkb(nj c(12), bj c(12))
select distinct km from t1 into cursor tt
select tt
go top
scan

 ckm = km

 alter table jsrkb add &ckm c(12)
endscan
select jsrkb
browse

@schtg 谢谢！就是这个意思。如何调整字段顺序呢？我想达到样表一样的字段顺序。请予指点！

这样应该就可以的哈

close all

create dbf jsrkb(nj c(12), bj c(12))
select distinct km,00 as nid from t1 into cursor tt readwrite
update tt set nid = icase(upper(alltrim(km))==upper("nj"),1,;
                          upper(alltrim(km))==upper("bj"),2,;
                          alltrim(km)=="班会",3,;
                          alltrim(km)=="道法",4,;
                          alltrim(km)=="品社",5,;
                          alltrim(km)=="科学",6,;
                          alltrim(km)=="语文",7,;
                          alltrim(km)=="数学",8,;
                          alltrim(km)=="英语",9,;
                          alltrim(km)=="体育",10,;
                          alltrim(km)=="音乐",11,;
                          alltrim(km)=="美术",12,;
                          alltrim(km)=="劳动",13,;
                          alltrim(km)=="信息",14,;
                          alltrim(km)=="综合",15,;
                          alltrim(km)=="语阅",16,;
                          alltrim(km)=="英阅",17,;
                          alltrim(km)=="自习1",18,;
                          alltrim(km)=="自习2",19;
                           )
select * from tt order by nid into cursor tt
select tt
go top
scan

 ckm = km

 alter table jsrkb add &ckm c(12)
endscan

select jsrkb
browse

谢谢！