📄 tjzw.prg
字号:
use tjzw in 0 &&在另一工作区打开统计职务用数据表
select tjzw &&选择统计职务表
zap &&清空里面的数据
select rsda &&选择人事档案表
set order to 职务 &&设置主索引为职务,即按职务排序
go top
do while .not. eof() &&建立循环,当没到数据表结尾时,循环执行下面的程序
zw=职务 &&将当前记录的职务存入zw变量
count while 职务=zw to rs &&统计以下记录数直到职务不与zw的值相同,结果放入rs变量
select tjzw &&选择统计职务数据表
append blank &&增加一空记录
replace 职务 with zw,人数 with rs &&将zw和rs的值存入空记录
select rsda &&选择rsda表以便继续统计下面的记录
enddo &&循环结束
do form tjzw name tjzw &&调用统计结果显示表单
select tjzw &&选择统计职务表
use &&将统计职务表关闭
select rsda &&选择人事档案表
set order to 编号 &&将主索引设回编号,以便在人事档案表显示
return &&返回
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -