.版本 2
.计次循环首 (取数组成员数 (数据表名), 计次)
.判断开始 (数据表名 [计次] = “source”)
到循环尾 ()
.判断 (数据表名 [计次] = “temp”)
到循环尾 ()
.默认
.判断结束
选择列表框1.加入项目 (数据表名 [计次], )
地区组合框.加入项目 (数据表名 [计次], )
.计次循环尾 ()
.版本 2
.支持库 iext
.支持库 eDB
.子程序 _地区组合框_列表项被选择
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 记录数, 整数型
超级列表框2.全部删除 ()
超级列表框3.全部删除 ()
记录集1.打开并排序 (地区组合框.取项目文本 (地区组合框.现行选中项), “BarCode ASC”)
.判断循环首 (记录集1.尾记录后 = 假)
记录集1.读文本 (“BarCode”, 文本1)
记录集1.到下一条 ()
.如果 (文本2 = “”)
记录数 = 记录数 + 1
记录集1.读文本 (“BarCode”, 文本2)
到循环尾 ()
.否则
.如果 (文本1 = 文本2)
记录集1.到下一条 ()
文本1 = “”
.否则
记录数 = 记录数 + 1
文本2 = 文本1
文本1 = “”
记录集1.到下一条 ()
.如果结束
.如果结束
.判断循环尾 ()
总记录标签.标题 = “条码总记录数: ” + 到文本 (记录数)
显示数量编辑框.内容 = 到文本 (记录数)
记录集1.关闭 ()
这是我原来写的一个程序供参考,不知道能不能帮得上你。