超級列表框同列同值取索引取行序列

.子程序 同列找同值, 整数型
.参数 列序, 整数型, , 從1開始數
.参数 同值行序組, 整数型, 数组
.参数 記録重複起始次序, 整数型, 可空, 從第幾個重複的表項值開始找
.局部变量 節點, 节点
.局部变量 同值, 文本型
.局部变量 行循環計次, 整数型
.局部变量 變值, 文本型

.如果真 (是否为空 (記録重複起始次序))
記録重複起始次序 ＝ 1
.如果真结束
節點.删除属性 (“1”)
清除数组 (同值行序組)
.计次循环首 (超級列表框內行數, 行循環計次)
變值 ＝ 超级列表框1.取标题 (行循環計次 － 1, 列序 － 1)
.如果 (節點.加入属性 (同值, “1”))

.否则
输出调试文本 (取失败原因 ())
記録重複起始次序 ＝ 記録重複起始次序 － 1
.如果真 (記録重複起始次序 ＝ 0)
同值 ＝ 變值
.如果真结束
.如果真 (同值 ＝ 變值)
加入成员 (同值行序組, 行循環計次)