高级表格

f15007937680

我想遍历编辑框里面的全部  部门和物品  我这个只能遍历单一的 希望大佬帮忙改下

aipca

  

子程序名	返回值类型	公开	备 注
判断删除物品

变量名	类 型	静态	数组	备 注
文本	文本型		0
文本1	文本型		0
i3	整数型
i4	整数型

文本 ＝ 分割文本 (编辑框_部门.内容, “,”, )
文本1 ＝ 分割文本 (编辑框_物品.内容, “,”, )
' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]
变量循环首 (高级表格1.行数, 1, -1, i3)
如果真 (高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [1] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2])
变量循环首 (取数组成员数 (文本1), 1, -1, i4)
如果真 (寻找文本 (高级表格1.取数据 (i3 － 1, 1), 文本1 [i4], , 假) ≠ -1)
高级表格1.置光标 (i3 － 1, 1)
高级表格1.删除行 (高级表格1.取光标行号 ())

变量循环尾 ()

变量循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 判断删除物品<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 文本1, 文本型, , "0"<br /> .局部变量 i3, 整数型<br /> .局部变量 i4, 整数型<br /> <br /> 文本 ＝ 分割文本 (编辑框_部门.内容, “,”, )<br /> 文本1 ＝ 分割文本 (编辑框_物品.内容, “,”, )<br /> ' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]<br /> <br /> .变量循环首 (高级表格1.行数, 1, -1, i3)<br />     .如果真 (高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [1] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2])<br />         .变量循环首 (取数组成员数 (文本1), 1, -1, i4)<br />             .如果真 (寻找文本 (高级表格1.取数据 (i3 － 1, 1), 文本1 [i4], , 假) ≠ -1)<br />                 高级表格1.置光标 (i3 － 1, 1)<br />                 高级表格1.删除行 (高级表格1.取光标行号 ())<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()

aipca

刚才的贴子给你写好了 你不看

LWB666

  

子程序名	返回值类型	公开	备 注
判断删除物品

变量名	类 型	静态	数组	备 注
部门	文本型		0
物品	文本型		0
数组	文本型		0
i3	整数型
i4	整数型
数组计次	整数型
i	整数型
j	整数型

' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]
部门 ＝ 分割文本 (编辑框_部门.内容, “,”, )
物品 ＝ 分割文本 (编辑框_物品.内容, “,”, )
计次循环首 (高级表格1.行数, i3)
计次循环首 (取数组成员数 (部门), i)
如果真 (高级表格1.取数据 (i3 － 1, 0) ＝ 部门 [i])
计次循环首 (取数组成员数 (物品), j)
如果真 (寻找文本 (高级表格1.取数据 (i3 － 1, 1), 物品 [j], , 假) ≠ -1)
调试输出 (高级表格1.取数据 (i3 － 1, 1), 物品 [j])
高级表格1.置光标 (i3 － 1, 1)
高级表格1.删除行 (高级表格1.取光标行号 ())
返回 ()

计次循环尾 ()

计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 判断删除物品<br /> .局部变量 部门, 文本型, , "0"<br /> .局部变量 物品, 文本型, , "0"<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i3, 整数型<br /> .局部变量 i4, 整数型<br /> .局部变量 数组计次, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]<br /> <br /> 部门 ＝ 分割文本 (编辑框_部门.内容, “,”, )<br /> 物品 ＝ 分割文本 (编辑框_物品.内容, “,”, )<br /> <br /> <br /> .计次循环首 (高级表格1.行数, i3)<br />     .计次循环首 (取数组成员数 (部门), i)<br />         .如果真 (高级表格1.取数据 (i3 － 1, 0) ＝ 部门 <i>)<br />             .计次循环首 (取数组成员数 (物品), j)<br />                 .如果真 (寻找文本 (高级表格1.取数据 (i3 － 1, 1), 物品 [j], , 假) ≠ -1)<br />                     调试输出 (高级表格1.取数据 (i3 － 1, 1), 物品 [j])<br />                     高级表格1.置光标 (i3 － 1, 1)<br />                     高级表格1.删除行 (高级表格1.取光标行号 ())<br />                     返回 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> .计次循环尾 ()

f15007937680

aipca 发表于 2025-2-25 13:26
[e=1].版本 2
.支持库 eGrid

如果加部门或者物品是不是这个代码要修改啊

aipca

f15007937680 发表于 2025-2-25 14:30
如果加部门或者物品是不是这个代码要修改啊

不需要的。

f15007937680

aipca 发表于 2025-2-25 13:26
[e=1].版本 2
.支持库 eGrid

我加了一个部门代码不改就没效果了

青春已不再

图表2.e (151.21 KB, 下载次数: 2)

2025-2-25 15:13 上传

点击文件名下载附件   好了 满足要求 全部删除

  

子程序名	返回值类型	公开	备 注
判断删除物品

变量名	类 型	静态	数组	备 注
部门	文本型		0
物品	文本型		0
数组	文本型		0
数组计次	整数型
部门总数	整数型
物品总数	整数型
i	整数型
n	整数型
ii	整数型
nn	整数型

部门总数 ＝ 文本_分割文本 (编辑框_部门.内容, “,”, , 部门)
物品总数 ＝ 文本_分割文本 (编辑框_物品.内容, “,”, , 物品)
' 部门总数 ＝ 部门总数 ＋ 1
计次循环首 (部门总数, i)
计次循环首 (部门总数, )
计次循环首 (高级表格1.行数, ii)
调试输出 (高级表格1.取文本数据 (ii － 1, 0))
如果真 (高级表格1.取文本数据 (ii － 1, 0) ＝ 部门 [i])
高级表格1.删除行 (ii － 1)

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环首 (物品总数, n)
计次循环首 (物品总数, )
计次循环首 (高级表格1.行数, nn)
调试输出 (高级表格1.取文本数据 (nn － 1, 1))
如果真 (高级表格1.取文本数据 (nn － 1, 1) ＝ 物品 [n])
高级表格1.删除行 (nn － 1)

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
信息框 (“完成！！”, 0, , )

子程序名	返回值类型	公开	备 注
文本_分割文本	整数型		能够将连续的分隔符视为一个分隔符 返回成员数
参数名	类 型	参考	可空	数组	备 注
待分割文本	文本型
分隔符	文本型
返回子文本数目	整数型
返回数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型
临时数组	文本型		0

重定义数组 (返回数组, 假, 0)
如果真 (分隔符 ＝ “”)
分隔符 ＝ “,”
如果 (返回子文本数目 ＝ 0)
临时数组 ＝ 分割文本 (待分割文本, 分隔符, )
临时数组 ＝ 分割文本 (待分割文本, 分隔符, 返回子文本数目)

计次循环首 (取数组成员数 (临时数组), i)
如果真 (临时数组 [i] ≠ “”)
加入成员 (返回数组, 临时数组 [i])

计次循环尾 ()
返回 (取数组成员数 (返回数组))

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 判断删除物品<br /> .局部变量 部门, 文本型, , "0"<br /> .局部变量 物品, 文本型, , "0"<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数组计次, 整数型<br /> .局部变量 部门总数, 整数型<br /> .局部变量 物品总数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 nn, 整数型<br /> <br /> 部门总数 ＝ 文本_分割文本 (编辑框_部门.内容, “,”, , 部门)<br /> 物品总数 ＝ 文本_分割文本 (编辑框_物品.内容, “,”, , 物品)<br /> ' 部门总数 ＝ 部门总数 ＋ 1<br /> <br /> .计次循环首 (部门总数, i)<br />     .计次循环首 (部门总数, )<br />         .计次循环首 (高级表格1.行数, ii)<br />             调试输出 (高级表格1.取文本数据 (ii － 1, 0))<br />             .如果真 (高级表格1.取文本数据 (ii － 1, 0) ＝ 部门 <i>)<br />                 高级表格1.删除行 (ii － 1)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (物品总数, n)<br />     .计次循环首 (物品总数, )<br />         .计次循环首 (高级表格1.行数, nn)<br />             调试输出 (高级表格1.取文本数据 (nn － 1, 1))<br />             .如果真 (高级表格1.取文本数据 (nn － 1, 1) ＝ 物品 [n])<br />                 高级表格1.删除行 (nn － 1)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 信息框 (“完成！！”, 0, , )<br /> <br /> <br /> <br /> .子程序 文本_分割文本, 整数型, 公开, 能够将连续的分隔符视为一个分隔符 返回成员数<br /> .参数 待分割文本, 文本型<br /> .参数 分隔符, 文本型, 可空<br /> .参数 返回子文本数目, 整数型, 可空<br /> .参数 返回数组, 文本型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 临时数组, 文本型, , "0"<br /> <br /> 重定义数组 (返回数组, 假, 0)<br /> .如果真 (分隔符 ＝ “”)<br />     分隔符 ＝ “,”<br /> .如果真结束<br /> .如果 (返回子文本数目 ＝ 0)<br />     临时数组 ＝ 分割文本 (待分割文本, 分隔符, )<br /> .否则<br />     临时数组 ＝ 分割文本 (待分割文本, 分隔符, 返回子文本数目)<br /> .如果结束<br /> <br /> .计次循环首 (取数组成员数 (临时数组), i)<br />     .如果真 (临时数组 <i> ≠ “”)<br />         加入成员 (返回数组, 临时数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (返回数组))

补充内容 (2025-2-25 15:16):
上面的有问题  下面的 正确

青春已不再

图表2.e (151.47 KB, 下载次数: 3)

2025-2-25 15:16 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
判断删除物品

变量名	类 型	静态	数组	备 注
部门	文本型		0
物品	文本型		0
数组	文本型		0
数组计次	整数型
部门总数	整数型
物品总数	整数型
i	整数型
n	整数型
ii	整数型
nn	整数型

部门总数 ＝ 文本_分割文本 (编辑框_部门.内容, “,”, , 部门)
物品总数 ＝ 文本_分割文本 (编辑框_物品.内容, “,”, , 物品)
' 部门总数 ＝ 部门总数 ＋ 1
计次循环首 (高级表格1.行数, )
计次循环首 (部门总数, i)
计次循环首 (高级表格1.行数, ii)
调试输出 (高级表格1.取文本数据 (ii － 1, 0))
如果真 (高级表格1.取文本数据 (ii － 1, 0) ＝ 部门 [i])
高级表格1.删除行 (ii － 1)

计次循环尾 ()
计次循环尾 ()
计次循环首 (物品总数, n)
计次循环首 (高级表格1.行数, nn)
调试输出 (高级表格1.取文本数据 (nn － 1, 1))
如果真 (高级表格1.取文本数据 (nn － 1, 1) ＝ 物品 [n])
高级表格1.删除行 (nn － 1)

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
信息框 (“完成！！”, 0, , )

子程序名	返回值类型	公开	备 注
文本_分割文本	整数型		能够将连续的分隔符视为一个分隔符 返回成员数
参数名	类 型	参考	可空	数组	备 注
待分割文本	文本型
分隔符	文本型
返回子文本数目	整数型
返回数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型
临时数组	文本型		0

重定义数组 (返回数组, 假, 0)
如果真 (分隔符 ＝ “”)
分隔符 ＝ “,”
如果 (返回子文本数目 ＝ 0)
临时数组 ＝ 分割文本 (待分割文本, 分隔符, )
临时数组 ＝ 分割文本 (待分割文本, 分隔符, 返回子文本数目)

计次循环首 (取数组成员数 (临时数组), i)
如果真 (临时数组 [i] ≠ “”)
加入成员 (返回数组, 临时数组 [i])

计次循环尾 ()
返回 (取数组成员数 (返回数组))

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 判断删除物品<br /> .局部变量 部门, 文本型, , "0"<br /> .局部变量 物品, 文本型, , "0"<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数组计次, 整数型<br /> .局部变量 部门总数, 整数型<br /> .局部变量 物品总数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 nn, 整数型<br /> <br /> 部门总数 ＝ 文本_分割文本 (编辑框_部门.内容, “,”, , 部门)<br /> 物品总数 ＝ 文本_分割文本 (编辑框_物品.内容, “,”, , 物品)<br /> ' 部门总数 ＝ 部门总数 ＋ 1<br /> .计次循环首 (高级表格1.行数, )<br />     .计次循环首 (部门总数, i)<br />         .计次循环首 (高级表格1.行数, ii)<br />             调试输出 (高级表格1.取文本数据 (ii － 1, 0))<br />             .如果真 (高级表格1.取文本数据 (ii － 1, 0) ＝ 部门 <i>)<br />                 高级表格1.删除行 (ii － 1)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (物品总数, n)<br />         .计次循环首 (高级表格1.行数, nn)<br />             调试输出 (高级表格1.取文本数据 (nn － 1, 1))<br />             .如果真 (高级表格1.取文本数据 (nn － 1, 1) ＝ 物品 [n])<br />                 高级表格1.删除行 (nn － 1)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> 信息框 (“完成！！”, 0, , )<br /> <br /> <br /> <br /> .子程序 文本_分割文本, 整数型, 公开, 能够将连续的分隔符视为一个分隔符 返回成员数<br /> .参数 待分割文本, 文本型<br /> .参数 分隔符, 文本型, 可空<br /> .参数 返回子文本数目, 整数型, 可空<br /> .参数 返回数组, 文本型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 临时数组, 文本型, , "0"<br /> <br /> 重定义数组 (返回数组, 假, 0)<br /> .如果真 (分隔符 ＝ “”)<br />     分隔符 ＝ “,”<br /> .如果真结束<br /> .如果 (返回子文本数目 ＝ 0)<br />     临时数组 ＝ 分割文本 (待分割文本, 分隔符, )<br /> .否则<br />     临时数组 ＝ 分割文本 (待分割文本, 分隔符, 返回子文本数目)<br /> .如果结束<br /> <br /> .计次循环首 (取数组成员数 (临时数组), i)<br />     .如果真 (临时数组 <i> ≠ “”)<br />         加入成员 (返回数组, 临时数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (返回数组))

f15007937680

zangai 发表于 2025-2-25 15:13
好了 满足要求 全部删除
[e=1].版本 2
.支持库 eGrid

十分感谢你的回复，我可能说反了，

我要判断删除 编辑框部门里面全部的部门 和 编辑框物品里面的全部

部门和物品全部判断一次
  
只要是编辑框里面部门和物品匹配的都    不删除