| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 536 人关注过本帖
标题:为何不显示查表的数据而是显示 0
只看楼主 加入收藏
不忘晴天
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-5-24
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
为何不显示查表的数据而是显示 0
我编写的一个小软件,用于梯形螺纹的精度设计,其中外螺纹的大径下偏差能够从表中查出来,为何小径下偏差却显示不出来。求高手指导,必定重谢
如图
图片附件: 游客没有浏览图片的权限,请 登录注册

最下面那个0应该显示的是查表的数值,那个文本框对应n15

程序如下:public n14,n15,n16,n18,n17,n19,n20
n14=0

n16=0
n18=0
n17=0
n19=0
n20=0


if thisform.optiongroup1.value=1
       n6=1
   else
       n6=2
endif

select xhn2 from xhcd07 into array dd where (xhcd07.jbdj1<n9) and (xhcd07.jbdj2>=n9) and(xhcd07.pitch=n10)
n8=dd

if val(thisform.text1.value)>n8
    n7=2
  else
    n7=1
endif

if empty(thisform.text1.value)
     messagebox("请输入旋合长度数值",0+16,"提示")
     thisform.text1.value=""
     thisform.text1.setfocus
  else
  
dime  wzjgc(1), wxjgc(1), pce(1) ,wdjgc(1)
select t4 from wdg03 into array wdjgc where (wdg03.pitch=n10)  


    do case
    case n6=1 and n7=1
       n13=7
       select e7 from wxg04 into array wxjgc where (wxg04.jbdj1<n9) and (wxg04.jbdj2>=n9) and (wxg04.pitch=n10)
       select wees from zjp01 into array pce where (zjp01.pitch=n10)
       select t7 from wzg06 into array wzjgc where (wzg06.jbdj1<n9) and (wzg06.jbdj2>=n9) and (wzg06.pitch=n10)     
       n16=0
       n18=0-wdjgc(1)
       n14=0
       n15=0-wxjgc(1)
       n17=pce(1)
       n20=wzjgc(1)
       n19=n17-n20
      
      
     
     case n6=1 and n7=2
       n13=8
       select e8 from wxg04 into array wxjgc where (wxg04.jbdj1<n9) and (wxg04.jbdj2>=n9) and (wxg04.pitch=n10)
       select wees from zjp01 into array pce where (zjp01.pitch=n10)
       select t8 from wzg06 into array wzjgc where (wzg06.jbdj1<n9) and (wzg06.jbdj2>=n9) and (wzg06.pitch=n10)     
       n16=0
       n18=0-wdjgc(1)
       n14=0
       n15=0-wxjgc(1)
       n17=pce(1)
       n20=wzjgc(1)
       n19=n17-n20
      
    case n6=2 and n7=1
       n13=8
       select c8 from wxg04 into array wxjgc where (wxg04.jbdj1<n9) and (wxg04.jbdj2>=n9) and (wxg04.pitch=n10)
       select wces from zjp01 into array pce where (zjp01.pitch=n10)
       select t8 from wzg06 into array wzjgc where (wzg06.jbdj1<n9) and (wzg06.jbdj2>=n9) and (wzg06.pitch=n10)     
       n16=0
       n18=0-wdjgc(1)
       n14=0
       n15=0-wxjgc(1)
       n17=pce(1)
       n20=wzjgc(1)
       n19=n17-n20
              
    case n6=2 and n7=2
       n13=9
       select c9 from wxg04 into array wxjgc where (wxg04.jbdj1<n9) and (wxg04.jbdj2>=n9) and (wxg04.pitch=n10)
       select wces from zjp01 into array pce where (zjp01.pitch=n10)
       select t9 from wzg06 into array wzjgc where (wzg06.jbdj1<n9) and (wzg06.jbdj2>=n9) and (wzg06.pitch=n10)     
       n16=0
       n18=0-wdjgc(1)
       n14=0
       n15=0-wxjgc(1)
       n17=pce(1)
       n20=wzjgc(1)
       n19=n17-n20      
endcase

thisform.release
do form bd7b.scx
endif
搜索更多相关主题的帖子: public 文本框 where 螺纹 
2014-05-24 19:00
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:4 
代码与界面显示不对应
从界面和代码中是看不出什么的
详细说明一下你的编程思路
打包上传相关文件

坚守VFP最后的阵地
2014-05-24 19:20
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:4 
1. 这类逻辑错误也让我们来排除?
2.“thisform.optiongroup1.value”中的选项按钮在表单的什么地方?
3.“select xhn2 from xhcd07...”中的表 xhcd07 的内容是什么?
……
楼主是让大家猜谜语吗?

泉城飞狐
2014-05-24 19:52
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:4 
没找见optiongroup
2014-05-24 20:24
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:4 
没显示出来的数据是不是小于1,带有小数位?

[ 本帖最后由 qjbzjp 于 2014-5-24 20:30 编辑 ]

相互学习,互相交流,共同提高。
2014-05-24 20:29
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:4 
程序寫成這樣,沒法看。

授人以渔,不授人以鱼。
2014-05-24 21:45
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
這種代碼,雖然沒法看,但若要找出錯誤的原因,其實也一樣有辦法,就是我平時總說學編程的人最緊要是學會調試程序的方法,但這麽長時間下來,肯學這種治本辦法的人絕無僅有,一有問題,總是有人找到了直接告訴解決辦法,卻也是從來不教人怎麽找出來的。

授人以渔,不授人以鱼。
2014-05-24 22:13
快速回复:为何不显示查表的数据而是显示 0
数据加载中...
 
   



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

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