高级表格读取下拉选项过滤

huage88948216

  

子程序名	返回值类型	公开	备 注
高级表格重复文本过滤	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
欲加入文本	文本型

如果 (寻找文本 (过滤文本本, 文本, , 假) ＞ 0)
欲加入文本 ＝ “”
过滤文本本 ＝ 过滤文本本 ＋ 文本
欲加入文本 ＝ 文本
返回 (欲加入文本)

.版本 2<br /> <br /> .子程序 高级表格重复文本过滤, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 欲加入文本, 文本型<br /> <br /> .如果 (寻找文本 (过滤文本本, 文本, , 假) ＞ 0)<br />     欲加入文本 ＝ “”<br /> .否则<br />     过滤文本本 ＝ 过滤文本本 ＋ 文本<br />     欲加入文本 ＝ 文本<br /> .如果结束<br /> 返回 (欲加入文本)

-----------------下面使用法-----------------------

  

子程序名	返回值类型	公开	备 注
表格重新读取下拉记录

打开 (取运行目录 () ＋ “XXX数据库”, , , , , “如有密码请填写”, )
判断循环首 (尾记录后 () ＝ 假)
如果真 (高级表格重复文本单位过滤 (读 ("XXX可替换")) ≠ “”)
高级表格1.插入下拉列表项 (3,读 ("XXX可替换"))

跳过 ()
判断循环尾 ()
关闭 ()
' --------------以上过滤重复与空文本--------------------

.版本 2<br /> <br /> .子程序 表格重新读取下拉记录<br /> <br /> 打开 (取运行目录 () ＋ “XXX数据库”, , , , , “如有密码请填写”, )<br /> .判断循环首 (尾记录后 () ＝ 假)<br /> <br />     .如果真 (高级表格重复文本单位过滤 (读 ("XXX可替换")) ≠ “”)<br />         高级表格1.插入下拉列表项 (3,读 ("XXX可替换"))<br />     .如果真结束<br /> <br />     跳过 ()<br /> .判断循环尾 ()<br /> 关闭 ()<br /> <br /> ' --------------以上过滤重复与空文本--------------------

尛晨

哈哈哈

已注销291942

晚上睡觉出汗是怎么回事

wetuuh

huage88948216 发表于 2018-1-19 12:12
很快的  在重复加入时如有重复就会直接忽略  如不重复就会加进来

我试试吧

huage88948216

wetuuh 发表于 2018-1-19 12:01
处理速度快吗？

很快的  在重复加入时如有重复就会直接忽略  如不重复就会加进来

wetuuh

处理速度快吗？

huage88948216

  

子程序名	返回值类型	公开	备 注
组合框重复文本过滤	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
欲加入文本	文本型

如果 (寻找文本 (组合框过滤文本, 文本, , 假) ＞ 0)
欲加入文本 ＝ “”
组合框过滤文本 ＝ 组合框过滤文本 ＋ 文本
欲加入文本 ＝ 文本
返回 (欲加入文本)

.版本 2<br /> <br /> .子程序 组合框重复文本过滤, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 欲加入文本, 文本型<br /> <br /> .如果 (寻找文本 (组合框过滤文本, 文本, , 假) ＞ 0)<br />     欲加入文本 ＝ “”<br /> .否则<br />     组合框过滤文本 ＝ 组合框过滤文本 ＋ 文本<br /> <br />     欲加入文本 ＝ 文本<br /> .如果结束<br /> 返回 (欲加入文本)

--------------------下面介绍用法---------------

  

组合框.清空 ()
打开 (取运行目录 () ＋ “数据库”, , , , , #密码, )
判断循环首 (尾记录后 () ＝ 假)
如果真 (组合框重复文本过滤 (读 (xxxx)) ≠ “”)
组合框.加入项目 (读 (xxxx), )

跳过 ()
判断循环尾 ()
到尾记录 ()

.版本 2<br /> <br /> 组合框.清空 ()<br /> <br /> 打开 (取运行目录 () ＋ “数据库”, , , , , #密码, )<br /> .判断循环首 (尾记录后 () ＝ 假)<br /> <br /> <br />     .如果真 (组合框重复文本过滤 (读 (xxxx)) ≠ “”)<br />         组合框.加入项目 (读 (xxxx), )<br />     .如果真结束<br /> <br />     跳过 ()<br /> .判断循环尾 ()<br /> <br /> <br /> 到尾记录 ()