EDB数据库去掉重复的

15910791922

EDB数据库，比如第一列是账号，只要账号相同的，只保留一个，其他的删掉

寒潮

直接的办法没有，只能遍历，写了一个，没测试，可以参考一下：

  

变量名	类 型	静态	数组	备 注
局_无重复	逻辑型
局_帐号	文本型

打开 (“edb数据库”, , , , , , )
到首记录 ()
判断循环首 (尾记录后 () ＝ 假)
局_无重复 ＝ 假
判断循环首 (局_无重复 ＝ 假)
局_帐号 ＝ 读 (“帐号”)
局_无重复 ＝ 真
如果真 (计算数目 (读 (“帐号”) ＝ 局_帐号) ＞ 1)
删除 ()
彻底删除 ()
局_无重复 ＝ 假

判断循环尾 ()
跳过 ()
判断循环尾 ()
关闭 ()

.版本 2<br /> <br /> .局部变量 局_无重复, 逻辑型<br /> .局部变量 局_帐号, 文本型<br /> <br /> 打开 (“edb数据库”, , , , , , )<br /> 到首记录 ()<br /> .判断循环首 (尾记录后 () ＝ 假)<br />     局_无重复 ＝ 假<br />     .判断循环首 (局_无重复 ＝ 假)<br />         局_帐号 ＝ 读 (“帐号”)<br />         局_无重复 ＝ 真<br />         .如果真 (计算数目 (读 (“帐号”) ＝ 局_帐号) ＞ 1)<br />             删除 ()<br />             彻底删除 ()<br />             局_无重复 ＝ 假<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     跳过 ()<br /> .判断循环尾 ()<br /> 关闭 ()

knowledge

取出来，比较，删除

垦荒公社

寒潮 发表于 2019-12-2 22:40
直接的办法没有，只能遍历，写了一个，没测试，可以参考一下：
[e=0].版本 2

这个办法好

茫然

代码如下


补充内容 (2019-12-2 23:22):
最后加上一行“ 彻底删除（）  ”

15010496616

调用格式： 〈逻辑型〉 查找 （条件语句型 查找条件） - 系统核心支持库->数据库     英文名称：locate     本命令从当前数据库中当前记录位置处（包括当前记录）开始寻找符合给定条件的记录。如成功找到返回真，并且将当前记录指针移至所找到的记录。如出错或未找到则返回假，当前记录指针位置保持不变。本命令为初级命令。     参数<1>的名称为“查找条件”，类型为“条件语句型（statment）”。参数值指定欲查找记录应该满足的条件。