i=1
 DO WHILE i<32
  thisform.pageframe1.Page2.Grid1.Column+&STR(i).+.readonly=.T.     &&**1-31只读
  i=i+1
 ENDDO
以上代码错误哪里？请大神帮忙，谢谢！！！

我不方便测试，请你自己试一下，可否？
i=1
DO WHILE i<32
   j=alltrim(str(i))
   thisform.pageframe1.Page2.Grid1.Column&j..readonly=.T.     &&**1-31只读
   i=i+1
ENDDO

i=1
 DO WHILE i<32     
  abc="Column"+TRANSFORM(I)
  thisform.pageframe1.Page2.Grid1.&abc..readonly=.T.     &&**分1-31只读
  i=i+1
 ENDDO

不需要转换变量，直接用下面的代码就可以了，注意是Columns
i=1
DO WHILE i<32
   thisform.pageframe1.Page2.Grid1.Columns(i).readonly=.T.     &&**1-31只读
   i=i+1
ENDDO

或者
for i = 1 to 31
    thisform.pageframe1.Page2.Grid1.Columns(i).readonly=.T.
endfor

@sdta，你的方法最好，谢谢！

1楼是用字符方式，在从数值转换为字符时需要注意消除空格；4楼介绍的是用列方式，只需要直接使用数值就行。