FOR i = 1 TO 12
    b = "月" + PADL(i, 2, "0")
    ?b
ENDFOR

程序代码：

LOCAL xfile,xfield,i
xfile = SYS(2015)

xfield = '分公司 C(50)'
FOR i=1 TO 12
    xfield = xfield + ',月'+TRANSFORM(i) + ' C(20)'
ENDFOR 

CREATE CURSOR &xfile (&xfield)
SELECT * FROM &xfile

以下是引用sharpex1在2021-12-29 11:00:02的发言：


变成这样了

程序代码：

CREATE TABLE hzb (fgs c(10))
FOR i = 1 TO 12
    b = "月" + PADL(i, 2, "0")
    ALTER TABLE hzb ADD &b c(20) 
ENDFOR
BROWSE