回复 5 楼 liuxingang28
老师,还想请教您个问题?
这里面还有个性别的条件
就是在体重标准表.dbf里,
性别:女
身高 体 重
低体重 正常 超重 肥胖
103.5 100 110 120 130 150
104.0 110 120 130 150 170
性别:男
身高 体 重
低体重 正常 超重 肥胖
103.5 100 110 120 130 150
104.0 110 120 130 150 170
在检测结果表里输入性别女或男,出现的结果是不一样的,请问怎么编写?是不是在体重标准表里添加上一个性别字段?
再在以下代码中如何添加区分性别的代码呢?
close all
use 体重标准表 alias t1 in 0
select 0
use 体测结果表 alias t2
scan
cMont = allt(月龄)
nWeight = val(体重)
select t1
locate for allt(月龄)==cMont
if found()
do case
case nWeight <= val(低体重)
cRet = '低体重'
case nWeight <= val(正常)
cRet = '正常'
case nWeight <= val(超重)
cRet = '超重'
otherwise
cRet = '肥胖'
endcase
replace 评价 with cRet in t2
endif
endscan
go top
browse