如何根据T1.dbf中的km字段内容动态生成jsrkb.dbf(空表） - 编程论坛

#2

schtg2025-04-04 16:57

回复楼主王咸美

是这个意思吗？

只有本站会员才能查看附件，请登录

程序代码：

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

#3

王咸美2025-04-04 17:43

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

#4

schtg2025-04-05 07:05

回复 3楼王咸美

这样应该就可以的哈

只有本站会员才能查看附件，请登录

程序代码：

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

#5

王咸美2025-04-05 13:24

谢谢！