Question

VF编程问题：关于sellect语句 我是想要把sellect 查询结果（一个字段）赋给一个变量energy 另外

我还想再另一个表单中引用这个表单计算得的tzzs的值 下面是我的程序 运行时显示energy不是数组变量 tzzs不是文件变量
public tzzs
public energy
temp=thisform.weight.value/(thisform.tall.value*thisform.tall.value)
do case
case temp>24.and.temp<27.9
tzzs='超重'
case temp>=28
tzzs='肥胖'
case temp<18.5
tzzs='轻体重'
otherwise
tzzs='正常体重'
endcase
select 推荐能量摄入量.推荐摄入能量 from 推荐能量摄入量 where 推荐能量摄入量.年龄=thisform.年龄.value.and.alltrim(推荐能量摄入量.性别)==alltrim(thisform.性别.value).and.alltrim(推荐能量摄入量.体力活动强度)==alltrim(thisform.体力活动强度.value) into array energy
release thisform
do form 推荐一日摄入能量.scx
谢谢高手指点

Answer 1

public tzzs这一句放在表单的init事件中试试，然后在这段程序前面加上一句：dime energy(100)

追问

我这样改后在第二个表单中出来结果咧 就有一点：运行时还显示tzzs不是文件变量 我忽略后也能出来结果 但可以把这个错误消掉吗 我这个表单的load程序写有：close all table
use e:\睿\vf6.0\vfp98\推荐能量摄入量.dbf 谢谢高手再指点 谢谢 谢谢

追答

你将load里面的程序删除，加在init事件中，这样写：
close table
use e:\睿\vf6.0\vfp98\推荐能量摄入量.dbf
(有点奇怪，你怎么没有设置默认路径，而且这里用的绝对路径，你应该将所有文件单独放在一起，设置好默认路径(点工具-选项-文件位置-默认路径-修改进行设置，最后要点设为默认值)，然后用相对路径，这样你才方便连编成程序。)
然后你在上面的程序开始加上：
set talk off
set safe off
在结尾加上：
set talk on
set talk on
看这样能不能消除错误提示。