标题:[求助]请教Tiger5392兄简单统计中的几个问题!
只看楼主
jun83
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-5-16
得分:0 
请问具体应该如何才可以把上面的程序可以正常运行呢,大家帮忙修改一下,在下永记在心!
2006-05-24 19:54
jun83
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-5-16
得分:0 

在下不断尝试已经解决出现的问题,在每一句的IF thisform.optiongroup1.value 的下面 都加上
close all table
use “表名”

感谢大家的关注,希望可以与和我遇到同样问题的人分享!

2006-05-24 20:21
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
得分:0 
IF thisform.optiongroup1.value=1
SELECT 检修车间设备台帐
X1=reccount()
sum 设备原值 to X2
thisform.text1.value=X1
thisform.text2.value=X2
ENDIF
IF thisform.optiongroup1.value=2
thisform.text1.value=""
thisform.text2.value=""
SELECT 库检车间设备台帐
X3=reccount()
sum 设备原值 to X4
thisform.text1.value=X3
thisform.text2.value=X4
ENDIF
IF thisform.optiongroup1.value=3
thisform.text1.value=""
thisform.text2.value=""
SELECT 轮轴车间设备台帐
X5=reccount()
sum 设备原值 to X6
thisform.text1.value=X5
thisform.text2.value=X6
ENDIF
IF thisform.optiongroup1.value=4
thisform.text1.value=""
thisform.text2.value=""
SELECT 空调车间设备台帐
X7=reccount()
sum 设备原值 to X8
thisform.text1.value=X7
thisform.text2.value=X8
ENDIF

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-24 21:12
jun83
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-5-16
得分:0 
THANKS!!!!!!
2006-05-25 10:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-66626-1-1.html




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

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