易语言怎么去除组合框重复的项目? 150
.版本2.子程序__启动窗口_创建完毕.局部变量记录,整数型,静态.如果(取反(外部数据库1.打开MDB数据库(取运行目录()+“\TEST1.mdb”,,,,)))信息...
.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 记录, 整数型, 静态
.如果 (取反 (外部数据库1.打开MDB数据库 (取运行目录 () + “\TEST1.mdb”, , , , )))
信息框 (“数据库连接失败!”, #错误图标, “错误”, )
关闭 ()
销毁 ()
.否则
信息框 (“连接ACCESS数据库成功!”, #信息图标, “成功”, )
.如果结束
记录 = 外部数据库1.查询 (“select * from 表1 where NAME”)
外部数据库1.到首记录 (记录)
组合框1.清空 ()
.判断循环首 (外部数据库1.尾记录后 (记录) = 假)
组合框1.加入项目 (外部数据库1.读 (记录, “NAME”), )
组合框1.现行选中项 = 0
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录)
这样读取后能把所有NAME字段的都读出来..但有很多是重复的..怎么改才是正确的? 展开
.子程序 __启动窗口_创建完毕
.局部变量 记录, 整数型, 静态
.如果 (取反 (外部数据库1.打开MDB数据库 (取运行目录 () + “\TEST1.mdb”, , , , )))
信息框 (“数据库连接失败!”, #错误图标, “错误”, )
关闭 ()
销毁 ()
.否则
信息框 (“连接ACCESS数据库成功!”, #信息图标, “成功”, )
.如果结束
记录 = 外部数据库1.查询 (“select * from 表1 where NAME”)
外部数据库1.到首记录 (记录)
组合框1.清空 ()
.判断循环首 (外部数据库1.尾记录后 (记录) = 假)
组合框1.加入项目 (外部数据库1.读 (记录, “NAME”), )
组合框1.现行选中项 = 0
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录)
这样读取后能把所有NAME字段的都读出来..但有很多是重复的..怎么改才是正确的? 展开
展开全部
.版本 2
.子程序 写配置文件数据
q = 组合框1.取项目数 ()
.计次循环首 (组合框1.取项目数 (), i)
.如果真 (组合框1.取项目文本 (i - 1) = 组合框1.内容)
重复 = 真
跳出循环 ()
.如果真结束
重复 = 假
.计次循环尾 ()
.如果真 (重复)
返回 ()
.如果真结束
写配置项 (配置路径, “内存地址”, “地址” + 到文本 (组合框1.取项目数 () + 1), 组合框1.内容)
组合框1.加入项目 (组合框1.内容, )
组合框1.现行选中项 = q + 1
组合框1.获取焦点 ()
这是我程序复制出来的。
.子程序 写配置文件数据
q = 组合框1.取项目数 ()
.计次循环首 (组合框1.取项目数 (), i)
.如果真 (组合框1.取项目文本 (i - 1) = 组合框1.内容)
重复 = 真
跳出循环 ()
.如果真结束
重复 = 假
.计次循环尾 ()
.如果真 (重复)
返回 ()
.如果真结束
写配置项 (配置路径, “内存地址”, “地址” + 到文本 (组合框1.取项目数 () + 1), 组合框1.内容)
组合框1.加入项目 (组合框1.内容, )
组合框1.现行选中项 = q + 1
组合框1.获取焦点 ()
这是我程序复制出来的。
追问
能不能按照我这里的情况写一次?因为看不太懂,不知道怎么套用
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询