DBF_F=GETFILE("DBF",'存放考生数据文件')
USE &dbf_f
thisform.text1.Value=JUSTFNAME(dbf_f)
SELECT zymc,COUNT(*) FROM &dbf_f GROUP BY zymc INTO ARRAY sj
thisform.list1.RowSourceType= 5
thisform.list1.ColumnCount =2
thisform.list1.RowSource= "sj"
thisform.Refresh
本意是想在列表框中显示各专业及人数，但是结果就是只显示专业名称，不知道错了哪里，求高手指点.TKS

[此贴子已经被作者于2017-4-27 17:45编辑过]

1 将数组定义为全局变量；
2 对 list1 用生成器进行设置
3 复制非默认值的属性

我得到的代码是这样的：

With Thisform.list1
    .ColumnCount = 2
    .FirstElement = Aelement(sj,1,1)
    .NumberOfElements = Alen(sj,1)
    .RowSource = [sj]
    .RowSourceType = 5
Endwith

我按你的办法试了，还是没用，只能看到一列。

** test.prg
CREATE CURSOR tt (专业 C(10), 人数 I)
INSERT INTO tt VALUES ("专业1", 101)
INSERT INTO tt VALUES ("专业2", 202)
INSERT INTO tt VALUES ("专业3", 303)

of = CREATEOBJECT("myform")
of.show(1)

DEFINE CLASS myform as Form
    ADD OBJECT list1 as listbox WITH top=10,left=10,width=200,;
        ColumnCount = 2,;
        RowSourceType = 3,;
        RowSource = "SELECT 专业, 人数 FROM tt INTO CURSOR tmp"
ENDDEFINE