好像可以了，，这样写会不会LOW。。。。请大师指点

USE 表1


    FOR i =1 TO 24
        a="thisform.text"+transform(i)+".value"
        SCAN  FOR RECNO()=i
        &a=表1.id
        ENDSCAN
    ENDFOR

这样写也可以

USE 表1
P='1'
DO WHILE .NOT.EOF()
thisform.text&P..value=表1.id
SKIP
P=ALLTRIM(STR(VAL(P)+1))
ENDDO

    USE 表1
    FOR i =1 TO 24
        a="thisform.text"+transform(i)+".value"
        go i
        &a=id
    ENDFOR

宏还能这么用 ，大开眼界

\(^o^)/~，这个写法容易理解

按小弟的思路，，，左列每个控件定义一个坐标，，中间列定义2个坐标，，右边定义一个坐标。。然后用最笨的方法，左边和中间列的每个控件都用IF ..ELSE 。。。ENDIF 的方法，例如左边第一个控件对应要中间列控件判断10次， 代码容易理解，不就是感觉LOW。请问如何优化？
还一个问题，，，因为是实时生产，打算半分钟刷新一次，，那当前绘制的LINE,如何“擦掉”？便于下次用定时器的时候重新绘制？

表单的cls方法可“擦掉”

多谢吹水老师傅！

不断学习,上线多看看多学学