| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 698 人关注过本帖
标题:这段代码出问题了
只看楼主 加入收藏
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:10 
这段代码出问题了
PUBLIC m_nian1,m_ri1,m_yue1,m_nian2,m_ri2,m_yue2,m_nianyueri1,m_nianyueri2
IF EMPTY() OR EMPTY() OR EMPTY() OR EMPTY() OR EMPTY() OR EMPTY()
    MESSAGEBOX("请输入要查询的日期!",40)
ELSE
    thisform.release
  m_nian1=
  m_ri1=
  m_yue1=
  m_nian2=
  m_ri2=
  m_yue2=
m_nianyueri1=CTOD(m_nian1+"/"+m_yue1+"/"+m_ri1)
m_nianyueri2=CTOD(m_nian2+"/"+m_yue2+"/"+m_ri2)
  USE 空箱加固库
  GO top

  DO WHILE NOT EOF()
  set filter to 日期>=m_nianyueri1 AND 日期<=m_nianyueri1
    browse
  enddo
ENDIF
  
搜索更多相关主题的帖子: PUBLIC 
2012-01-12 20:44
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:3 
thisform.release为什么不是放在后面?
  DO WHILE NOT EOF()
   set filter to 日期>=m_nianyueri1 AND 日期<=m_nianyueri1
     browse
   enddo
 这是干什么?
BROW FOR 日期>=m_nianyueri1 AND 日期<=m_nianyueri1

2012-01-12 22:38
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:3 
樓主似乎對寫下的各個命令不大清楚到底是幹什麼的。連同另外一個問題帖看,思路有點不清晰,初學者難怪,但最好把問題描述清楚,連碰到了什麼麻煩都不說,那就有點攤手黨的嫌疑了。

授人以渔,不授人以鱼。
2012-01-12 23:10
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
回复 3楼 TonyDeng
按条件查询,形成新的表,然后去打印或者查询。不知道怎么编这样的代码。
2012-01-13 09:03
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
回复 2楼 软件服务
现在是2个毛病,1、死循环,只在第一条记录上,2、不按指定条件查询
2012-01-13 09:05
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
LOCAL  m_nian1,m_ri1,m_yue1,m_nian2,m_ri2,m_yue2,m_nianyueri1,m_nianyueri2,riqi,daozhan,chehao,chexing,minglinghao,xianghao,xiangshu,xiangxing,hunyunyuan,chehzong,i
IF EMPTY() OR EMPTY() OR EMPTY() OR EMPTY() OR EMPTY() OR EMPTY()
    MESSAGEBOX("请输入要查询的日期!",40)
ELSE
  m_nian1=
  m_ri1=
  m_yue1=
  m_nian2=
  m_ri2=
  m_yue2=
m_nianyueri1=CTOD(m_nian1+"/"+m_yue1+"/"+m_ri1)
m_nianyueri2=CTOD(m_nian2+"/"+m_yue2+"/"+m_ri2)
    SELECT 加固统计查询
    DELETE all
    PACK
   SELECT 空箱加固库
  GO top
  i=1
DO WHILE NOT EOF()
    IF 日期>=m_nianyueri1 AND 日期<m_nianyueri2
        riqi=日期
       daozhan=到站
       minglinghao=命令号
       chexing=车型
       chehao=车号
       xainghao=箱号1+"、"+箱号2
       xiangshu=箱属
       xiangxing=箱型
       huoyunyuan=货运员
       chezhong=车种
      select 加固统计查询
        appe blank
        repl 序号 WITH i
        *,车号 WITH chehao,车型 WITH chexing,车种 WITH chezhong,到站 WITH daozhan,货运员 WITH huoyunyuan,命令号 WITH mingling,日期 WITH riqi,箱号 WITH xianghao,箱属 WITH xiangshu,箱型 WITH xiangxing
            
    ENDIF
    thisform.Release
    use 空箱加固库
    SKIP 1
    i=i+1
enddo
 MESSAGEBOX("请输入要查询的日期!",40)
ENDIF
  
2012-01-13 09:13
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:3 
用select
select * from 空箱加固库 where 日期>=m_nianyueri1 AND 日期<m_nianyueri2 into table 加固统计查询

2012-01-13 10:07
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
死循環是因為2樓替你提煉出來那個循環語句邏輯錯誤。那幾行的每一行,指令都是幹什麼的,查一查書,自然會明白。不死循環才怪呢。

授人以渔,不授人以鱼。
2012-01-13 12:04
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:0 
程序代码:
LOCAL  m_nian1,m_ri1,m_yue1,m_nian2,m_ri2,m_yue2,m_nianyueri1,m_nianyueri2,riqi,daozhan,chehao,chexing,minglinghao,xianghao,xiangshu,xiangxing,hunyunyuan,chehzong,i

 IF EMPTY(text) OR EMPTY(text) OR EMPTY(text) OR EMPTY(text) OR EMPTY(text) OR EMPTY(text)
     MESSAGEBOX("请输入要查询的日期!",40)

 ELSE
   m_nian1=text
   m_ri1=text
   m_yue1=text
   m_nian2=text
   m_ri2=text
   m_yue2=text
   m_nianyueri1=CTOD(m_nian1+"/"+m_yue1+"/"+m_ri1)
   m_nianyueri2=CTOD(m_nian2+"/"+m_yue2+"/"+m_ri2)
     SELECT 加固统计查询
     DELETE all
     PACK
   SELECT 空箱加固库
   GO top
   i=1

 DO WHILE NOT EOF()
     IF 日期>=m_nianyueri1 AND 日期<m_nianyueri2
         riqi=日期
        daozhan=到站
        minglinghao=命令号
        chexing=车型
        chehao=车号
        xainghao=箱号1+"、"+箱号2
        xiangshu=箱属
        xiangxing=箱型
        huoyunyuan=货运员
        chezhong=车种
       select 加固统计查询
         appe blank
         repl 序号 WITH i
        *,车号 WITH chehao,车型 WITH chexing,车种 WITH chezhong,到站 WITH daozhan,货运员 WITH huoyunyuan,命令号 WITH minglinghao,日期 WITH riqi,箱号 WITH xianghao,箱属 WITH xiangshu,箱型 WITH xiangxing
           
     ENDIF
     use 空箱加固库
     SKIP
     i=i+1

 enddo

 MESSAGEBOX("请输入要查询的日期!",40)

 thisform.Release

 ENDIF

 
2012-01-13 12:57
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
回复 7楼 tlliqi
确实是解决了问题,但是出现了新问题。形成的表怎么到我指定的目录下?还有不提示覆盖表怎么做到?因为每天查好几次数据,查看后表也就没用了。不知道我这么表达能说明白不?

IF thisform.text5.value={} or thisform.text6.value={} or thisform.text6.value<thisform.text5.value
    MESSAGEBOX("日期错误,请重新输入!!!",40)   
    thisform.text5.setfocus
ELSE
    select * from 空箱加固库 where 日期>=thisform.Text5.value AND 日期<=thisform.Text6.Value into table 加固查询
ENDIF
2012-01-13 22:10
快速回复:这段代码出问题了
数据加载中...
 
   



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

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