| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1316 人关注过本帖
标题:列表框问题求助.
只看楼主 加入收藏
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
列表框问题求助.
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编辑过]

搜索更多相关主题的帖子: 列表框 thisform 显示 专业 结果 
2017-04-27 17:17
xinjie
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:19
帖 子:271
专家分:520
注 册:2007-8-11
收藏
得分:10 
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 17:38
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
收藏
得分: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
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:10 
图片附件: 游客没有浏览图片的权限,请 登录注册

** 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
2017-04-27 20:18
快速回复:列表框问题求助.
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019895 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved