| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1509 人关注过本帖
标题:问个小问题,请教这个怎么解决
只看楼主 加入收藏
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1093
专家分:2690
注 册:2015-12-30
收藏
得分:1 
local lsb1,lsb2,lsb3,lsb4,lsb5,lsb6,lsb7,lsb8,lsb9,lsb10
DO 统计
FOR i=1 TO 10
tt=ALLTRIM(STR(i))
yy='lsb'+STR(i)
thisform.pageframe1.page1.container4.label&tt..Caption=yy    &&'&yy'
thisform.pageframe1.page1.container4.Init
2023-04-21 07:46
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1093
专家分:2690
注 册:2015-12-30
收藏
得分:0 
以下是引用hytizj023在2023-4-20 22:04:31的发言:


local lsb1,lsb2,lsb3,lsb4,lsb5,lsb6,lsb7,lsb8,lsb9,lsb10
DO 统计
FOR i=1 TO 10
tt=ALLTRIM(STR(i))
yy=lsb+STR(i)
thisform.pageframe1.page1.container4.label&tt..Caption='&yy'
thisform.pageframe1.page1.container4.Init
统计程序已经赋值了啊!
你还没有理解到意思吗?现在不是变量空值,而是没有找到变量,我要循环打印lsb1到lsb10的值
我的意思是lsb+STR(i)这种写法有错,应该怎么写!
报错是找不到lsb,正确的应该是找不到lsb1变量,而不是lsb


local lsb1,lsb2,lsb3,lsb4,lsb5,lsb6,lsb7,lsb8,lsb9,lsb10
DO 统计
第1句中定义的10个局部变量,在第2句的程序“统计”中是不可用的!就算是同名变量也不是一回事
要养成定义变量及变量作用域的习惯,这样不至于出现一些莫名的问题

建议:“统计”如果只是为了获得某结果,建议写成函数,或者在当前表单做个button当函数用也行
2023-04-21 07:54
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
以下是引用hytizj023在2023-4-20 21:52:26的发言:

Caption=lsb+str(i)这里该怎么写啊!
这些写他只是报错lsb,而不是lsb1

你将“lsb+str(i)”作为字符串显示出来看看,就可以发现问题所在。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2023-04-21 07:58
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:708
专家分:2848
注 册:2018-3-13
收藏
得分:0 
.Caption = trans(eval('lsb'+ trans(i)))

这家伙很懒,啥也没留下
2023-04-21 08:00
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
收藏
得分:0 
以下是引用csyx在2023-4-21 08:00:05的发言:

.Caption = trans(eval('lsb'+ trans(i)))

,成功解决,感谢
2023-04-21 08:36
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
收藏
得分:0 
以下是引用laowan001在2023-4-21 07:54:58的发言:



local lsb1,lsb2,lsb3,lsb4,lsb5,lsb6,lsb7,lsb8,lsb9,lsb10
DO 统计
第1句中定义的10个局部变量,在第2句的程序“统计”中是不可用的!就算是同名变量也不是一回事
要养成定义变量及变量作用域的习惯,这样不至于出现一些莫名的问题

建议:“统计”如果只是为了获得某结果,建议写成函数,或者在当前表单做个button当函数用也行

我把local,变成public,结果也是一样
我试了'lsb'+str(i),结果就是输出了,lsb1
2023-04-21 08:38
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:790
专家分:1170
注 册:2021-10-13
收藏
得分:0 
lsb没加引号是变量,加了引号是字符串,楼主还不知道错在哪?
2023-04-21 08:55
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
收藏
得分:0 
COUNT FOR 路数比='3:0:0' to lsb1
COUNT FOR 路数比='2:1:0' to lsb2
COUNT FOR 路数比='2:0:1' to lsb3
COUNT FOR 路数比='1:2:0' to lsb4
COUNT FOR 路数比='1:1:1' to lsb5
COUNT FOR 路数比='1:0:2' to lsb6
COUNT FOR 路数比='0:3:0' to lsb7
COUNT FOR 路数比='0:2:1' to lsb8
COUNT FOR 路数比='0:1:2' to lsb9
COUNT FOR 路数比='0:0:3' to lsb10
FOR i=1 TO 10
tt=ALLTRIM(STR(i))
thisform.pageframe1.page1.container4.label&tt..Caption=trans(eval('lsb'+ trans(i)))
thisform.pageframe1.page1.container4.label&tt..refresh
IF thisform.pageframe1.page1.container4.label&tt..Caption='0'
thisform.pageframe1.page1.container4.label&tt..visible=.f.
else
thisform.pageframe1.page1.container4.label&tt..visible=.T.
ENDIF
ENDFOR
我查询按钮里面有很多地方要用到这些代码,如果都去写一遍,太长了(这里我只列举了一部分,其实还有很多),也不利于程序的可读性,有没有好的办法
主要是下面这些方法:
FOR i=1 TO 10
tt=ALLTRIM(STR(i))
thisform.pageframe1.page1.container4.label&tt..Caption=trans(eval('lsb'+ trans(i)))
thisform.pageframe1.page1.container4.label&tt..refresh
IF thisform.pageframe1.page1.container4.label&tt..Caption='0'
thisform.pageframe1.page1.container4.label&tt..visible=.f.
else
thisform.pageframe1.page1.container4.label&tt..visible=.T.
ENDIF
ENDFOR
2023-04-21 09:04
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:790
专家分:1170
注 册:2021-10-13
收藏
得分:0 
lsb没加引号是变量,加了引号是字符串,楼主还不知道错在哪?
2023-04-21 09:16
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:708
专家分:2848
注 册:2018-3-13
收藏
得分:0 
For ii = 1 TO 10
    cNo = Transform(ii)
    With GetPem(thisform.pageframe1.page1.container4, 'Label'+cNo) as Label
        .Caption = Transform(Evaluate('lsb'+cNo))
        .Refresh()
        .Visible = !(.Caption == '0')
    EndWith
EndFor

这家伙很懒,啥也没留下
2023-04-21 09:24
快速回复:问个小问题,请教这个怎么解决
数据加载中...
 
   



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

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