两个超级列表框内容核对

梦想奈何

实现如图，如果 超级列表框2 批号一列   如果从超级列表框1批号中找到相同批号  超级列表框1和2盘点状态一列插入√ 没找到插入×

Giggle梦痕

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_表项数	整数型
局_批号	文本型
局_索引2	整数型

计次循环首 (超级列表框1.取表项数 (), 局_表项数)
局_批号 ＝ 超级列表框1.取标题 (局_表项数 － 1, 2)
局_索引2 ＝ 超级列表框2.查找表项 (局_批号, , , 5)
判断 (局_索引2 ≠ -1)
超级列表框1.置标题 (局_表项数 － 1, 3, “√”)
超级列表框2.置标题 (局_索引2, 8, “√”)




计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), 局_表项数)
如果真 (超级列表框1.取标题 (局_表项数 － 1, 3) ≠ “√”)
超级列表框1.置标题 (局_表项数 － 1, 3, “×”)

计次循环尾 ()
计次循环首 (超级列表框2.取表项数 (), 局_表项数)
如果真 (超级列表框2.取标题 (局_表项数 － 1, 8) ≠ “√”)
超级列表框2.置标题 (局_表项数 － 1, 8, “×”)

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_表项数, 整数型<br /> .局部变量 局_批号, 文本型<br /> .局部变量 局_索引2, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 局_表项数)<br />     局_批号 ＝ 超级列表框1.取标题 (局_表项数 － 1, 2)<br />     局_索引2 ＝ 超级列表框2.查找表项 (局_批号, , , 5)<br />     .判断开始 (局_索引2 ≠ -1)<br />         超级列表框1.置标题 (局_表项数 － 1, 3, “√”)<br />         超级列表框2.置标题 (局_索引2, 8, “√”)<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 局_表项数)<br />     .如果真 (超级列表框1.取标题 (局_表项数 － 1, 3) ≠ “√”)<br />         超级列表框1.置标题 (局_表项数 － 1, 3, “×”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框2.取表项数 (), 局_表项数)<br />     .如果真 (超级列表框2.取标题 (局_表项数 － 1, 8) ≠ “√”)<br />         超级列表框2.置标题 (局_表项数 － 1, 8, “×”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

梦想奈何

这张图为准

石榴熟了

超级列表框1.查找表项

自己循环查啊

10008508

反正大致就是这样
.版本 2
.支持库 iext

.计次循环首 (超级列表框1.取表项数 (), i)
    对比1=超级列表框1.取标题 (i － 1, 1)
    对比2=超级列表框2.取标题 (i － 1, 5)
    .如果真 (对比1=对比2)
        超级列表框1.置标题 (索引, 2, “√”)
        超级列表框1.置标题 (索引, 8, “×”)
    .如果真结束

.计次循环尾 ()

南影

  

变量名	类 型	静态	数组	备 注
批号	文本型
列表框2索引	整数型

计次循环首 (超级列表框1.取表项数 (),i)
批号 = 超级列表框1.取标题 (i-1,2)
列表框2索引 = 超级列表框1.查找表项 (批号, , , 5)
判断 (列表框2索引 ≠ -1)
超级列表框2.置标题 (列表框2索引, 8, “√”)
超级列表框2.置标题 (列表框2索引, 8, “×”)

计次循环尾 ()

.版本 2<br /> .局部变量 批号, 文本型<br /> .局部变量 列表框2索引, 整数型<br /> <br /> .计次循环首(超级列表框1.取表项数(),i)<br /> 批号 = 超级列表框1.取标题(i-1,2)<br /> 列表框2索引 = 超级列表框1.查找表项 (批号, , , 5)<br /> .判断开始 (列表框2索引 ≠ -1)<br /> 超级列表框2.置标题 (列表框2索引, 8, “√”)<br /> .默认<br /> 超级列表框2.置标题 (列表框2索引, 8, “×”)<br /> .判断结束<br /> .计次循环尾()

补充内容 (2025-4-7 12:15):
列表框2索引 = 超级列表框2.查找表项 (批号, , , 5)

10008508

.版本 2


.计次循环首 (超级列表框1.取表项数 (), i)
    对比1=超级列表框1.取标题 (i － 1, 1)
    对比2=超级列表框2.取标题 (i － 1, 5)
    .如果(对比1=对比2)
        超级列表框1.置标题 (索引, 2, “√”)
        超级列表框1.置标题 (索引, 8, “√”)

    .否则
        超级列表框1.置标题 (索引, 2, “×”)
        超级列表框1.置标题 (索引, 8, “×”)


    .如果结束

.计次循环尾 ()