主题:关于列表框和编辑框
yakuyayes
[专家分:0] 发布于 2009-08-17 16:15:00
我现在想实现这样一个功能
单击列表框里的标题可以在编辑框的显示相关内容。
应如何实现呢?
回复列表 (共6个回复)
沙发
homayzh [专家分:7040] 发布于 2009-08-17 16:49:00
列表框的内容是??DBF文件名??还是什么啊?这个得说清楚吧,还是TXT文件?
板凳
yakuyayes [专家分:0] 发布于 2009-08-17 17:12:00
其实是不是用列表框我也不知道,我就是想在一个帮助的表单里有两个好像长方形的东西,左边的长方形里面有个个关于帮助的标题,例如如何查询学生信息,而在右边的长方形就显现要如何才能实现查询学生信息的功能。
3 楼
homayzh [专家分:7040] 发布于 2009-08-17 17:20:00
你这样试试
建立一个表文件, 临时表 标题(字符型 20 ) 内容 (备注型)
在表单的
thisform.list1.RowSourceType = 6
thisform.list1.RowSource = 临时表
click 里输入:
thisform.edit1.value = 临时表.内容 就行了啊
或者你把editbox的.ControlSource = 临时表.内容
list.click里就换成 thisform.refresh 就行了。
这样编辑后就可以直接存盘啦
4 楼
yakuyayes [专家分:0] 发布于 2009-08-17 17:31:00
真的很谢谢你啊,我还想问一个问题啊。
在一个表单里,有两个组合框,一个是选择班级的,另一个是选择课程的。有四个text分别显示选课学生的人数,最高分,最低分,平均分。我的目的是先选择班级,再选择课程,然后分别统计每班每们课的选课学生的人数,最高分,最低分,平均分。
5 楼
homayzh [专家分:7040] 发布于 2009-08-17 17:45:00
表文件的结构可以发上来吗?
还有你做到什么程度啦?
我给你重从说一个吧
conbo1.RowSourceType = 6
.RowSource = 表.班级
combo2.rowsourcetype = 6
.rowsource = 表.课程
command1.click
if empty(thisform.combo1.value) or empty(thisform.combo2.value)
messaegbox("选择班级或课程,不能为空")
retu
endif
sele 表
set filter to allt(表.班级)==allt(thisform.combo1.value) and allt(表.课程)= allt(thisform.combo2.value)
COUNT TO thisform.text1.value &&人数
......
......
....求出最高分,最低分,平均分,放在text里就ok了
6 楼
yakuyayes [专家分:0] 发布于 2009-08-17 18:08:00
我是从几张表里建一个查询放在数据库里的,麻烦你把最后那个代码也写一下好吗?我自己写了,发现运行不了
我来回复