要不，list就不要了。就用grid也是可以的：在GRID中显示全部选项，默认数量0，选择相应的选项，回车或确定后刷新GRID。

建议用Combo向Grid添加品种，然后在Grid中编辑数量。

grid不能复选

那倒是解决了空间的问题,不过操作就太不方便了.
首先combo不能复选,要多次点击下拉,操作量比复选大了一倍.
第二,清空grid的条件无法判断,还要手动进行清空操作.

不用复选了吧。GRID显示list的全部数据。确认后只显示有数量的数据

那就是说还是要有list控件吧.

可能是我没说清楚,我的默认值是1而不是零.只改大于1的选项,如果spinner不行,只要文本框也可以,绝大多数录入数据是1,这样操作量最少.
如果说默认值可以为0的话,我就没必要只显示非零的数据了,直接运行程序计算就行了.
我现在正在试着用计算座标的方法让addobject("物品名","spinner")产生的控件出现在对应的list项旁边.但是在list的click事件里要先用type()来判断同名对象,然后将上一次的"物品名"对象release,这一步老是出现问题.我还没找到原因.如果不行,我把代码传上来,几位帮忙看看.

啊,我找到原因了,原来是要用removeobject而不是release,低级错误啊,呵呵.
接下来就是调座标了.胜利在望啊.

真不容易啊,这个才是真正的带spinner的列表框.我苦思多日的成果啊.代码附上.

list的click事件:
FOR i=1 TO this.ListCount
objname=ALLTRIM(this.List(i))
IF TYPE("thisform.&objname.") = "O"
thisform.removeobject(objname)
endif
IF this.Selected(i)
thisform.AddObject(objname,"spinner")
itemsize=thisform.list1.fontsize+8
WITH thisform.&objname.
.visible=.t.
.top=i*itemsize+thisform.list1.top-17
.width=40
.height=itemsize
.left=thisform.list1.Left+thisform.list1.Width-100
.value=1
ENDwith
ENDIF
NEXT
thisform.refresh
因为每个spinner的name属性都和物品名一样,可以程序里自由地调用对应项的数量值.