列表框问题求助. - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 列表框问题求助.

我的收件箱(0)

共有 1499 人关注过本帖

标题：列表框问题求助.

取消只看楼主加入收藏

wangzhiyi

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：1

列表框问题求助.

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编辑过]

2017-04-27 17:17

wangzhiyi

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9

第 2 楼

得分:0

以下是引用xinjie在2017-4-27 17:38:13的发言：

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

我得到的代码是这样的：
With Thisform.list1
    .ColumnCount = 2
    .FirstElement = Aelement(sj,1,1)
    .NumberOfElements = Alen(sj,1)
    .RowSource = [sj]
    .RowSourceType = 5
Endwith

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

2017-04-27 19:14

快速回复：列表框问题求助.