有字段名a1、a2、a3。。。。。。

如何在这个语句中：

if a1=1 then

让a1的位置自动转换成a2、a3......

for i=1 to 10
************* 宏 *********
    bl='a'+allt(str(i))   
   if &bl = 1 then
      .....
endfor

不知道楼主想干什么

[[it] 本帖最后由 ibmlang_002 于 2008-9-12 10:59 编辑 [/it]]

先组成字段名的字符串：
cZD="a"+alltri(str(al))
然后再用宏替换：
if &cZD =1 then

FOR i=1 to 10
    IX='a'+transform(i)
    if &IX=1
        ***执行命令
    endif
next

提醒楼主：for 循环中不能用then，这是VB中的用法。

经过程序验证，for 中加then ，没有问题

楼主是用IF语句的

[[it] 本帖最后由 ibmlang_002 于 2008-9-12 11:52 编辑 [/it]]

抱歉，应该是IF  Then不能用。