精易论坛

标题: 高级表格删除问题 [打印本页]
作者: f15007937680    时间: 2025-2-25 10:56
标题: 高级表格删除问题
请问各位高手，这个怎么会报错呢 求指正

图表.e

293.22 KB, 下载次数: 3
作者: 青春已不再    时间: 2025-2-25 10:56
  
子程序名返回值类型公开备 注
判断删除物品  
变量名类 型静态数组备 注
文本文本型0
文本1文本型0
i3整数型 
i4整数型 
文本 ＝ 分割文本 (编辑框_部门.内容, “,”, )
文本1 ＝ 分割文本 (编辑框_物品.内容, “,”, )
' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]
计次循环首 (高级表格1.行数, i3)
如果 (文本 [i3] ＝ “部门2” 且 文本1 [i3] ＝ “雪碧”)
如果 (高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [i3] 且 高级表格1.取数据 (i3 － 1, 1) ＝ 文本1 [i3])
高级表格1.删除行 (i3 － 1)







计次循环尾 ()


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


把你源码里面的判断物品改成这个就好了
作者: 青春已不再    时间: 2025-2-25 11:15
图表.e (148 KB, 下载次数: 3)
给你加了个自定义删除项
作者: f15007937680    时间: 2025-2-25 11:23
zangai 发表于 2025-2-25 11:15
给你加了个自定义删除项

我这个部门 和项目 是不只一个啊 有很多个需要判断的 大佬这个好像只能单一的判断 这个我知道 就是多个部门个项目 不知道怎么弄  老是提示类型错误
作者: 青春已不再    时间: 2025-2-25 11:25
f15007937680 发表于 2025-2-25 11:23
我这个部门 和项目 是不只一个啊 有很多个需要判断的 大佬这个好像只能单一的判断 这个我知道 就是多个部 ...

你不是说只删除 部门2下面的吗？？
作者: aipca    时间: 2025-2-25 11:47
在如果真里加个返回（）

  
计次循环首 (高级表格1.行数, i3)
如果真 (高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [1] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2])
如果真 (寻找文本 (高级表格1.取数据 (i3 － 1, 1), 文本1 [2], , 假) ≠ -1)
高级表格1.置光标 (i3 － 1, 1)
高级表格1.删除行 (高级表格1.取光标行号 ())
返回 ()


计次循环尾 ()


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


作者: malin158    时间: 2025-2-25 11:51
不是一个类型的当然出错
.版本 2
.支持库 eGrid

.子程序 判断删除物品
.局部变量 文本, 文本型, , "0"
.局部变量 文本1, 文本型, , "0"
.局部变量 i3, 整数型
.局部变量 i4, 整数型

文本 ＝ 分割文本 (编辑框_部门.内容, “,”, )
文本1 ＝ 分割文本 (编辑框_物品.内容, “,”, )
' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]
.计次循环首 (高级表格1.行数, i3)

    .如果真 (到文本 (高级表格1.取数据 (i3 － 1, 0)) ＝ 文本 [1] 或 到文本 (高级表格1.取数据 (i3 － 1, 0)) ＝ 文本 [2])
        .如果真 (寻找文本 (到文本 (高级表格1.取数据 (i3 － 1, 1)), 文本1 [2], , 假) ≠ -1)

            高级表格1.置光标 (i3 － 1, 1)
            高级表格1.删除行 (高级表格1.取光标行号 ())
        .如果真结束

    .如果真结束


.计次循环尾 ()

作者: malin158    时间: 2025-2-25 11:51
[JavaScript] 纯文本查看 复制代码
.版本 2

.支持库 eGrid



.子程序 判断删除物品

.局部变量 文本, 文本型, , "0"

.局部变量 文本1, 文本型, , "0"

.局部变量 i3, 整数型

.局部变量 i4, 整数型



文本 ＝ 分割文本 (编辑框_部门.内容, “,”, )

文本1 ＝ 分割文本 (编辑框_物品.内容, “,”, )

' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]

.计次循环首 (高级表格1.行数, i3)



    .如果真 (到文本 (高级表格1.取数据 (i3 － 1, 0)) ＝ 文本 [1] 或 到文本 (高级表格1.取数据 (i3 － 1, 0)) ＝ 文本 [2])

        .如果真 (寻找文本 (到文本 (高级表格1.取数据 (i3 － 1, 1)), 文本1 [2], , 假) ≠ -1)



            高级表格1.置光标 (i3 － 1, 1)

            高级表格1.删除行 (高级表格1.取光标行号 ())

        .如果真结束



    .如果真结束





.计次循环尾 ()
作者: malin158    时间: 2025-2-25 11:53

  
子程序名返回值类型公开备 注
判断删除物品  
变量名类 型静态数组备 注
文本文本型0
文本1文本型0
i3整数型 
i4整数型 
文本 ＝ 分割文本 (编辑框_部门.内容, “,”, )
文本1 ＝ 分割文本 (编辑框_物品.内容, “,”, )
' 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [2] 或 高级表格1.取数据 (i3 － 1, 0) ＝ 文本 [3]
计次循环首 (高级表格1.行数, i3)
如果真 (到文本 (高级表格1.取数据 (i3 － 1, 0)) ＝ 文本 [1] 或 到文本 (高级表格1.取数据 (i3 － 1, 0)) ＝ 文本 [2])
如果真 (寻找文本 (到文本 (高级表格1.取数据 (i3 － 1, 1)), 文本1 [2], , 假) ≠ -1)
高级表格1.置光标 (i3 － 1, 1)
高级表格1.删除行 (高级表格1.取光标行号 ())


计次循环尾 ()


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

作者: aipca    时间: 2025-2-25 12:04
修改一下，删除指定部门 指定物品，实现编辑框里指定的物品，指定的部门 全删除功能。
  
子程序名返回值类型公开备 注
判断删除物品  
变量名类 型静态数组备 注
文本文本型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高级表格支持库

作者: f15007937680    时间: 2025-2-25 12:17
zangai 发表于 2025-2-25 11:25
你不是说只删除 部门2下面的吗？？

谢谢大佬我忘记加返回了  加了返回就搞定了 谢谢



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4