.变量循环首 (0, 列表框1.取项目数 () － 1, 1, I)
.如果 (表.取键值 (到字节集 (列表框1.取项目文本 (I)), 节点) ＝ 假)
节点.加入属性 (“值”, 到字节集 (列表框1.取项目文本 (I)))
表.加入键值对 (到字节集 (列表框1.取项目文本 (I)), 节点)
.否则
加入成员 (重复项目, I)
.如果结束
.变量循环尾 ()
列表框1.禁止重画 ()
数组排序 (重复项目, 假)
.计次循环首 (取数组成员数 (重复项目), I)
列表框1.删除项目 (重复项目 [I])
.计次循环尾 ()
列表框1.允许重画 ()
标签1.标题 ＝ “现有项目:” ＋ 到文本 (列表框1.取项目数 ())
上一篇 sql数据库操作的全部功能
下一篇 数据库里插入到超级列表框里