求助:一个算法:读取一个字段(有重复的值)

jackyped 2004-05-05 09:39:14
从考场表中找“考试课程”加到cmbox控件 cboCourse 的下拉选项中。(“考试课程”字段中有重复的值。)让下拉选项无重复。
我将“考试课程”排序后可以做到。但是不排序该怎么写?想了2 个小时没办法。



这是我

Set recCourseName = DB.OpenRecordset("select 考试课程 from 考场表 ")
recCourseName.MoveLast
recCourseName.MoveFirst

Do While Not recCourseName.EOF
Dim q As Long '循环变量
Dim listCourse As Long 'cboCourse 中 list 的数目
If listCourse = 0 Then'如果是第一项直接加到下拉选项中。
CboCourse.AddItem recCourseName(0)
listCourse = listCourse + 1
Else
????????????????????????????????
????????????????????????????????
End If
recCourseName.MoveNext
Loop
...全文
26 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jackyped 2004-05-05
Set recCourseName = DB.OpenRecordset("select Distinct 考试课程 from 考场表 ")
'加上Distinct不返回重复行!

原来有这么好的方法~
给分!
  • 打赏
  • 举报
回复
yenight 2004-05-05
Set recCourseName = DB.OpenRecordset("select Distinct 考试课程 from 考场表 ")
'加上Distinct不返回重复行!
  • 打赏
  • 举报
回复
jackyped 2004-05-05
在线等。
各位兄弟姐妹不吝赐教!
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1190

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-05 09:39
社区公告
暂无公告