| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 889 人关注过本帖
标题:求助:找不到变量
只看楼主 加入收藏
richro
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-3-25
收藏
 问题点数:0 回复次数:2 
求助:找不到变量
调试表单时,提示找不到use (sjkm)中的sjkm变量,是怎么回事呀,谢谢!
if this.label9.caption='指定分类项目'
   
   this.text5.visible=.f.
endi   
clos data
if used('ymxxk')
   sele ymxxk
   else
   sele 0
   use (sjkm)
endi
public dbf_stru[2,4],kxz_lm[fcount(),4]
afield(dbf_stru)
n_lms=1
c_lms=0
for n=1 to fcount()
   if dbf_stru[n,2]='N'
      n_lms=n_lms+1
      kxz_lm[n_lms,1]=allt(dbf_stru[n,1])
      kxz_lm[n_lms,2]=allt(dbf_stru[n,2])
      kxz_lm[n_lms,3]=dbf_stru[n,3]
      kxz_lm[n_lms,4]=dbf_stru[n,4]
   endi
next
use ymxx_tjxmk
public c_lmmc[recc(),4]
for n= 1 to recc()
      c_lmmc[n,1]=allt(field_name)
      c_lmmc[n,2]=field_type
      c_lmmc[n,3]=field_len
      c_lmmc[n,4]=field_dec
      skip
next
*!*    copy stru exte to hd_jgk
*!*    use hd_jgk
*!*    for n= 1 to alen(dbf_stru,1)
*!*       if dbf_stru[n,2]='C'.or.dbf_stru[n,2]='L'
*!*          appe blan
*!*          repl field_name with allt(dbf_stru[n,1])
*!*          repl field_type with allt(dbf_stru[n,2])
*!*          repl field_len with dbf_stru[n,3]
*!*          repl field_dec with dbf_stru[n,4]
*!*       endi   
*!*    next
kxz_lm[1,1]='户数'
kxz_lm[1,2]='N'
kxz_lm[1,3]=8
kxz_lm[1,4]=0

public kxz_lm[n_lms,4],yxz_lm[n_lms,4],sjk_lm[n_lms,4]
*asort(c_lmmc)
if this.label9.caption='指定分类项目'
   'c_lmmc'
  
   else
   sele 0
   use ymxx_fdtjxmk
   public fd_xmmc[recc(),2]
      for n=1 to recc()
         fd_xmmc[n,1]=项目名
         fd_xmmc[n,2]=分段表达式
         skip
      next
   use           
   'fd_xmmc'
endi   
   

acopy(kxz_lm,yxz_lm)
for n=1 to n_lms
    sjk_lm[n,1]=' '
    sjk_lm[n,2]=' '
    sjk_lm[n,3]=10
    sjk_lm[n,4]=0

next
this.list1.rowsource='sjk_lm'
   
this.list2.rowsource='yxz_lm'
   
hd_use('ymxx_dmk')
count for allt(代码类别)=='库区' to kqs
count for allt(代码类别)=='县市区' to xxqs

public kq_mc[kqs+1,2],xxq_mc[xxqs+1,2]

*!*    copy to array kq_mc fields 名称,代码 for allt(代码类别)=='库区'
*!*    copy to array xxq_mc fields 名称,代码 for allt(代码类别)=='县市区'
kq_mc[1,1]='全部库区'
kq_mc[1,2]='     '
XXq_mc[1,1]='全部县市'
XXq_mc[1,2]='     '
KQ=1
XX=1
GO TOP
FOR N=1 TO RECC()
IF allt(代码类别)=='库区'
   KQ=KQ+1
   kq_mc[KQ,1]=ALLT(名称)
   kq_mc[KQ,2]=ALLT(代码)
ENDI
IF allt(代码类别)=='县市区'
   XX=XX+1
   XXq_mc[XX,1]=ALLT(名称)
   XXq_mc[XX,2]=ALLT(代码)
ENDI
SKIP
NEXT   



'kq_mc'
'xxq_mc'


[1,1]
[1,1]

'.'+this.name
'.'+this.name
'.'+this.name
this.'.'+this.name
this.'.'+this.name
this.'.'+this.name

'.'+this.name
'.'+this.name
'.'+this.name
'.'+this.name
'.'+this.name
'.'+this.name

'.'+this.name

this.'.'+this.name
this.'.'+this.name
this.'.'+this.name
this.'.'+this.name
   


搜索更多相关主题的帖子: 变量 
2008-03-25 18:19
richro
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-3-25
收藏
得分:0 
set compatible off
public xztj_lms

if !file(sjxt_name+'\hd_seekname.dbf')
   hd_use('hd_seekname')
   copy to (sjxt_name+'\hd_seekname')
endi
if !file(sjxt_name+'\hd_seekbds.dbf')
   hd_use('hd_seekbds')
   copy to (sjxt_name+'\hd_seekbds')
endi
hd_use_bm(sjxt_name+'\hd_seekbds','hd_seekbds')
go bott

找不到sjxt_name变量,我是一新手,请各位老师指导!
2008-03-25 18:24
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
1\ use (sjkm) 为什么要加括号?
2\ sjxt_name你在哪儿做了定义?

2008-03-26 07:49
快速回复:求助:找不到变量
数据加载中...
 
   



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

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