| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 225 人关注过本帖
标题:循环变量如何换转
只看楼主 加入收藏
ryubo888
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-7-3
结帖率:100%
  已结贴   问题点数:10  回复次数:6   
循环变量如何换转
i=1
 DO WHILE i<32
  thisform.pageframe1.Page2.Grid1.Column+&STR(i).+.readonly=.T.     &&**1-31只读
  i=i+1
 ENDDO
以上代码错误哪里?请大神帮忙,谢谢!!!
2019-05-10 20:07
schtg
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:23
帖 子:650
专家分:936
注 册:2012-2-29
  得分:4 
我不方便测试,请你自己试一下,可否?
i=1
DO WHILE i<32
   j=alltrim(str(i))
   thisform.pageframe1.Page2.Grid1.Column&j..readonly=.T.     &&**1-31只读
   i=i+1
ENDDO
2019-05-10 20:20
ryubo888
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-7-3
  得分:0 
回复 2楼 schtg
i=1
 DO WHILE i<32     
  abc="Column"+TRANSFORM(I)
  thisform.pageframe1.Page2.Grid1.&abc..readonly=.T.     &&**分1-31只读
  i=i+1
 ENDDO
2019-05-10 20:34
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:江苏省连云港市
等 级:贵宾
威 望:182
帖 子:7606
专家分:18523
注 册:2012-2-5
  得分:5 
不需要转换变量,直接用下面的代码就可以了,注意是Columns
i=1
DO WHILE i<32
   thisform.pageframe1.Page2.Grid1.Columns(i).readonly=.T.     &&**1-31只读
   i=i+1
ENDDO

坚守VFP最后的阵地
2019-05-10 20:34
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:江苏省连云港市
等 级:贵宾
威 望:182
帖 子:7606
专家分:18523
注 册:2012-2-5
  得分:1 
或者
for i = 1 to 31
    thisform.pageframe1.Page2.Grid1.Columns(i).readonly=.T.
endfor

坚守VFP最后的阵地
2019-05-10 20:36
schtg
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:23
帖 子:650
专家分:936
注 册:2012-2-29
  得分:0 
@sdta,你的方法最好,谢谢!
2019-05-11 06:12
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:356
帖 子:11424
专家分:42613
注 册:2006-5-13
  得分:0 
1楼是用字符方式,在从数值转换为字符时需要注意消除空格;4楼介绍的是用列方式,只需要直接使用数值就行。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2019-05-14 10:34







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

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