Question

易语言怎么去除组合框重复的项目?

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 记录, 整数型, 静态

.如果 (取反 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\TEST1.mdb”, , , , )))
信息框 (“数据库连接失败!”, #错误图标, “错误”, )
关闭 ()
销毁 ()
.否则
信息框 (“连接ACCESS数据库成功!”, #信息图标, “成功”, )
.如果结束
记录 ＝ 外部数据库1.查询 (“select * from 表1 where NAME”)
外部数据库1.到首记录 (记录)
组合框1.清空 ()
.判断循环首 (外部数据库1.尾记录后 (记录) ＝ 假)
组合框1.加入项目 (外部数据库1.读 (记录, “NAME”), )
组合框1.现行选中项 ＝ 0
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录)

这样读取后能把所有NAME字段的都读出来..但有很多是重复的..怎么改才是正确的?

Answer 1

.版本 2

.子程序 写配置文件数据

q ＝ 组合框1.取项目数 ()
.计次循环首 (组合框1.取项目数 (), i)
.如果真 (组合框1.取项目文本 (i － 1) ＝ 组合框1.内容)
重复 ＝ 真
跳出循环 ()
.如果真结束
重复 ＝ 假
.计次循环尾 ()
.如果真 (重复)
返回 ()
.如果真结束
写配置项 (配置路径, “内存地址”, “地址” ＋ 到文本 (组合框1.取项目数 () ＋ 1), 组合框1.内容)
组合框1.加入项目 (组合框1.内容, )

组合框1.现行选中项 ＝ q ＋ 1
组合框1.获取焦点 ()
这是我程序复制出来的。

追问

能不能按照我这里的情况写一次？因为看不太懂，不知道怎么套用

Answer 2

把SQL语句改为：select distinct name from 表1 order by name

Answer 3

没看到你的报表，建议你连MDB也一起发出来