| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3545 人关注过本帖
标题:哪位大哥帮我看看下面的代码为什么会出现"内部一致性错误"?非常感谢! ...
只看楼主 加入收藏
xjyu9801
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-10-29
收藏
 问题点数:0 回复次数:16 
哪位大哥帮我看看下面的代码为什么会出现"内部一致性错误"?非常感谢!

哪位大哥帮我看看下面动态更新趋势图的代码问题出在什么地方,不胜感激!
小弟想实现一个技术创新经费动态趋势分析的界面,在表单上有四个 check 控制分析"经费投入"表中的各指标(字段);
有一个 combo 判断选择打开表

yangbiao 中的"leixing"字段储存各种分析用的MS GRAPH 图表

系统为XP SP2, VFP6.0,
在上周运行时没有任何问题,趋势图正常显示
没有作任何改变,现在一运行就出现"内部一致性错误" ,接着就出现"致命错误 C0000005",退出VFP
在打上SP5的补丁后,就只出现"内部一致性错误",接着就什么都没了,死了,郁闷!





public biaoti,biaoti1

if not isblank(alltrim(thisform.combo1.value))
sele 1
thisform.dakaijftr &&打开 经费投入 表
sele 2
thisform.dakaiqysjgs &&打开 企业数机构数 表
dimension qiyeshu(reccount())
j=1
scan
qiyeshu(j)=dzxqys &&将"大中型企业数"的值记录下来
j=j+1
endscan

sele 1

dimension myarray1(reccount()),myarray2(reccount()),myarray3(reccount()),myarray4(reccount()),myarray5(reccount())
i=1
scan
myarray1(i)=nf && 记录"年份"
myarray2(i)=jsgzjf && 记录"技术改造经费"
myarray3(i)=myarray2(i)/qiyeshu(i) && 计算技术改造经费的企均值
if i=1
myarray4(i)=0
myarray5(i)=0
else
myarray4(i)=(myarray2(i)-myarray2(i-1))/myarray2(i-1) && 计算技术改造经费的增长率
myarray5(i)=(myarray3(i)-myarray3(i-1))/myarray3(i-1) && 计算技术改造经费企均值的增长率
endif
i=i+1
endscan


use yangbiao

do case
case thisform.check1.value+thisform.check2.value+thisform.check3.value+thisform.check4.value=0
messagebox("请选择分析指标!",48,"提示")

case thisform.check1.value+thisform.check2.value+thisform.check3.value+thisform.check4.value=1
GO 1

if thisform.check1.value=1
biaoti="总支出"
do tubiao with myarray1,myarray2
endif

if thisform.check2.value=1
biaoti="增长率"
do tubiao with myarray1,myarray4
endif

if thisform.check3.value=1
biaoti="企均值"
do tubiao with myarray1,myarray3
endif

if thisform.check4.value=1
biaoti="企均值增长率"
do tubiao with myarray1,myarray5
endif

case thisform.check1.value+thisform.check2.value+thisform.check3.value+thisform.check4.value=2
go 4
if thisform.check1.value=1
biaoti="总支出"
biaoti1="增长率"
do tubiao1 with myarray1,myarray2,myarray4
endif

if thisform.check3.value=1
biaoti="企均值"
biaoti1="增长率"
do tubiao1 with myarray1,myarray3,myarray5
endif

endcase

else
messagebox("请选择分析的地区!",48,"提示")
endif




tubiao 程序 :
parameters a,b
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
LOCAL shuju
bt=""
shuju=" "
for i=1 to alen(a)
bt=bt+Tab+alltrim(str(a(i)))
shuju=shuju+Tab+alltrim(STR(b(i),15,2))
ENDfor
bt=bt+CRLF
shuju=bt+biaoti+shuju+CRLF
SELECT yangbiao
APPEND GENERAL leixing DATA shuju && 将值赋予包含趋势图的通用型字段"leixing"中
return




tubiao1 程序:
parameters a,b,c
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
LOCAL shuju
bt=""
shuju=" "
shuju1=" "
for i=1 to alen(a)
bt=bt+Tab+alltrim(str(a(i)))
shuju=shuju+Tab+alltrim(STR(b(i),15,2))
shuju1=shuju1+Tab+alltrim(STR(c(i),15,2))
ENDfor
bt=bt+CRLF
shuju=bt+biaoti+shuju+CRLF+biaoti1+shuju1
SELECT yangbiao
APPEND GENERAL leixing DATA shuju
return

搜索更多相关主题的帖子: 一致性错误 代码 动态 趋势 
2005-10-29 21:24
xjyu9801
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-10-29
收藏
得分:0 

我改用了VFP9.0后,有时候很正常,但有时候一运行就死机,哪位大哥告诉我是怎么回事,谢谢!

2005-10-30 15:45
tcsoftware
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2005-8-6
收藏
得分:0 

还是6.0的好用


小郭小郭我爱你排山倒海支持你小六小六我爱你七舅姥爷支持你人见人爱白展堂重情重义好儿郎湘玉湘玉如花似玉
2005-11-13 00:10
oldplayboy
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-4-16
收藏
得分:0 

哥们:
问题解决没有?我也遇到了同样的问题:向一数据库导入WORD文档的各段,前几周一直好好的,这两天出现你说的"内部一致性错误",但有个别时候又可运行.烦!

[此贴子已经被作者于2007-4-16 18:12:19编辑过]

2007-04-16 18:11
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
谁能解决?

2007-05-16 11:44
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
这就是你?

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-16 13:34
爱以走远
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:52
帖 子:7542
专家分:21
注 册:2007-3-16
收藏
得分:0 
怎么斑竹在灌水哦


   好好活着,因为我们会死很久!!!
2007-05-16 13:38
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
楼上的是我认识的

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-16 13:43
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
快解决问题啊~~急求答案!
我不认识版主,只认识

2007-05-16 13:59
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
再说,小心删了你的贴

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-16 14:01
快速回复:哪位大哥帮我看看下面的代码为什么会出现"内部一致性错误"?非常感谢! ...
数据加载中...
 
   



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

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