要求输出100以内能被9整除的数，每行显示4个，问下我这样写有什么问题
for x=1 to 100 step 1
    if x%9=0
       thisform.list1.columncount=4
       thisform.list1.columnwidths="30,30,30,30"
       thisform.list1.columnlines=.f.
       thisform.list1.addlistitem(x)      
    endif
endfor

thisform.list1.columncount=4
thisform.list1.columnwidths="30,30,30,30"
thisform.list1.columnlines=.f.
这几个属性在定义list1时设定，不用在循环体内设置。

[此贴子已经被作者于2017-5-17 14:23编辑过]

Control.AddListItem(cItem [, nItemID] [, nColumn])
 
 thisform.list1.addlistitem(x)      此处的X应该为字符型数据 可修改为allt(str(x))

写个简单示例：

** test.prg
of=CREATEOBJECT("myForm")
of.show(1)
RETURN

DEFINE CLASS myForm as Form
    ADD OBJECT list1 as listbox WITH top=10,left=10,width=150,;
        columncount=4,columnlines=.f.,columnwidths="30,30,30,30"

    PROCEDURE list1.Init
        LOCAL i, nColumn
        nColumn = 1
        FOR i=9 TO 100 STEP 9
            IF nColumn > 1
                this.list[this.NewIndex, nColumn] = TRANSFORM(i)
            ELSE
               this.additem(TRANSFORM(i))
            ENDIF
            nColumn = IIF(nColumn<4, nColumn+1, 1)
        ENDFOR
    ENDPROC
ENDDEFINE

怎么没有注释阿？