| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1189 人关注过本帖
标题:如何生成教师名单
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:658
专家分:3
注 册:2018-1-4
结帖率:97.44%
收藏
已结贴  问题点数:20 回复次数:4 
如何生成教师名单
如何根据教师任课表jsrkb.dbf,生成教师名单?请高手指点!万分感谢!!!
jsrkb.zip (1.47 KB)
搜索更多相关主题的帖子: dbf 教师 生成 
2020-04-07 12:01
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:8 
程序代码:

SET SAFETY OFF 
SET ENGINEBEHAVIOR 70
CLOSE DATABASES 

CREATE TABLE ls (xm c(6)) 
SELECT 0
USE jsrkb ALIAS rk
FOR i=3 TO FCOUNT()
  SCAN 
    cfm=EVALUATE(FIELD(i))
    SELECT ls
    APPEND BLANK 
    REPLACE ls.xm WITH cfm
    SELECT rk
  ENDSCAN 
ENDFOR 
SELECT * from ls WHERE !EMPTY(xm) GROUP BY xm INTO dbf jsmd
SELECT jsmd
brow 

只求每天有一丁点儿的进步就可以了
2020-04-07 12:36
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
楼主这是给大家布置作业啊

坚守VFP最后的阵地
2020-04-07 12:38
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:6 
程序代码:
CLOSE TABLES all
USE jsrkb
CREATE CURSOR jsmdtmp (jsmc c(10))
SELECT jsrkb
FOR i=1 TO FCOUNT()
    czdmc=UPPER(FIELD(i,'jsrkb'))
    IF czdmc<>'NJ' AND czdmc<>'BJ'
        SELECT &czdmc jsmc FROM jsrkb INTO dbf jsmd
        SELECT jsmdtmp
        APPEND from jsmd
    ENDIF
ENDFOR
SELECT distinct jsmc FROM jsmdtmp INTO dbf jsmd ORDER BY jsmc  WHERE !EMPTY(jsmc)

dBase有人接盘了。
2020-04-07 13:02
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:6 
程序代码:
CLOSE DATABASES 
CREATE CURSOR jskb (jsxm c(8))
USE jsrkb IN 0
SELECT jsrkb
SCAN 
    FOR i = 3 TO FCOUNT()
        ckc = FIELD(i)
        IF NOT EMPTY(EVALUATE("jsrkb." + ckc))
            INSERT INTO jskb VALUES (EVALUATE("jsrkb." + ckc))
        ENDIF 
    ENDFOR
ENDSCAN
SELECT DISTINCT jsxm FROM jskb

坚守VFP最后的阵地
2020-04-07 13:26
快速回复:如何生成教师名单
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036678 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved