高级表格EX 按一下按钮 删除一行内容

sphinxes

你好.e (17.25 KB, 下载次数: 3)

昨天 11:39 上传

点击文件名下载附件

效果如上

单删除内容要保留
备注：  合计重量：合计件数：合计金额：  第一行不要删除    最左侧的1234 也不要删除

一个按钮  按一下  按一下删除内容  从最后一行 开始 删

谢谢 麻烦大家了


补充内容 (2025-12-24 11:47):
一个按钮  按一下  删一行内容   按一下删一行

补充内容 (2025-12-24 11:58):
如果某一行没有内容 不用按就最好了

zainex

例子.zip (5.85 KB, 下载次数: 3)

昨天 13:12 上传

点击文件名下载附件

zainex

  

子程序名	返回值类型	公开	备 注
_按钮Ex1_鼠标左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类 型	静态	数组	备 注
数	整数型
数量	整数型

如果真 (高级表格EX1.取项目数量 () ≤ 3)
返回 ()
高级表格EX1.删除项目 (1, 1)
数量 ＝ 高级表格EX1.取项目数量 () － 2
计次循环首 (数量, 数)
高级表格EX1.合并单元格 (数 － 1, 3, 数 － 1, 4)
高级表格EX1.合并单元格 (数 － 1, 5, 数 － 1, 6)
高级表格EX1.合并单元格 (数 － 1, 8, 数 － 1, 9)
计次循环尾 ()
高级表格EX1.合并单元格 (数量, 0, 数量, 11)
高级表格EX1.合并单元格 (数量 ＋ 1, 0, 数量 ＋ 1, 3)
高级表格EX1.合并单元格 (数量 ＋ 1, 4, 数量 ＋ 1, 8)
高级表格EX1.合并单元格 (数量 ＋ 1, 9, 数量 ＋ 1, 11)

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮Ex1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 数量, 整数型<br /> <br /> .如果真 (高级表格EX1.取项目数量 () ≤ 3)<br />     返回 ()<br /> .如果真结束<br /> 高级表格EX1.删除项目 (1, 1)<br /> 数量 ＝ 高级表格EX1.取项目数量 () － 2<br /> .计次循环首 (数量, 数)<br />     高级表格EX1.合并单元格 (数 － 1, 3, 数 － 1, 4)<br />     高级表格EX1.合并单元格 (数 － 1, 5, 数 － 1, 6)<br />     高级表格EX1.合并单元格 (数 － 1, 8, 数 － 1, 9)<br /> .计次循环尾 ()<br /> 高级表格EX1.合并单元格 (数量, 0, 数量, 11)<br /> 高级表格EX1.合并单元格 (数量 ＋ 1, 0, 数量 ＋ 1, 3)<br /> 高级表格EX1.合并单元格 (数量 ＋ 1, 4, 数量 ＋ 1, 8)<br /> 高级表格EX1.合并单元格 (数量 ＋ 1, 9, 数量 ＋ 1, 11)

效果:

例子.zip (5.45 KB, 下载次数: 3)

昨天 12:10 上传

点击文件名下载附件

zainex

最后一行开始删:

  

子程序名	返回值类型	公开	备 注
_按钮Ex1_鼠标左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类 型	静态	数组	备 注
数	整数型
数量	整数型

如果真 (高级表格EX1.取项目数量 () ≤ 3)
返回 ()
高级表格EX1.删除项目 (高级表格EX1.取项目数量 () － 3, 1)
数量 ＝ 高级表格EX1.取项目数量 () － 2
计次循环首 (数量, 数)
高级表格EX1.合并单元格 (数 － 1, 3, 数 － 1, 4)
高级表格EX1.合并单元格 (数 － 1, 5, 数 － 1, 6)
高级表格EX1.合并单元格 (数 － 1, 8, 数 － 1, 9)
计次循环尾 ()
高级表格EX1.合并单元格 (数量, 0, 数量, 11)
高级表格EX1.合并单元格 (数量 ＋ 1, 0, 数量 ＋ 1, 3)
高级表格EX1.合并单元格 (数量 ＋ 1, 4, 数量 ＋ 1, 8)
高级表格EX1.合并单元格 (数量 ＋ 1, 9, 数量 ＋ 1, 11)

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮Ex1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 数量, 整数型<br /> <br /> .如果真 (高级表格EX1.取项目数量 () ≤ 3)<br />     返回 ()<br /> .如果真结束<br /> 高级表格EX1.删除项目 (高级表格EX1.取项目数量 () － 3, 1)<br /> 数量 ＝ 高级表格EX1.取项目数量 () － 2<br /> .计次循环首 (数量, 数)<br />     高级表格EX1.合并单元格 (数 － 1, 3, 数 － 1, 4)<br />     高级表格EX1.合并单元格 (数 － 1, 5, 数 － 1, 6)<br />     高级表格EX1.合并单元格 (数 － 1, 8, 数 － 1, 9)<br /> .计次循环尾 ()<br /> 高级表格EX1.合并单元格 (数量, 0, 数量, 11)<br /> 高级表格EX1.合并单元格 (数量 ＋ 1, 0, 数量 ＋ 1, 3)<br /> 高级表格EX1.合并单元格 (数量 ＋ 1, 4, 数量 ＋ 1, 8)<br /> 高级表格EX1.合并单元格 (数量 ＋ 1, 9, 数量 ＋ 1, 11)

效果:

zainex

只删除单元格中的内容:

  

子程序名	返回值类型	公开	备 注
_按钮Ex1_鼠标左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类 型	静态	数组	备 注
数	整数型
数量	整数型
下标	整数型
值	整数型

数量 ＝ 取数组成员数 (数组)
计次循环首 (数量, 数)
下标 ＝ 数量 － 数 ＋ 1
如果真 (数组 [下标] ＝ 真)
计次循环首 (11, 值)
高级表格EX1.置项目文本 (下标, 值, 下标, 值, “”)
计次循环尾 ()
数组 [下标] ＝ 假
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_高级表格EX1_项目退出编辑	整数型
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型
列索引	整数型
进入模式	整数型
项目内容	整数型

如果真 (项目内容 ≠ 0 且 项目索引 ＞ 0 且 项目索引 ＜ 5)
数组 [项目索引] ＝ 真

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮Ex1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 下标, 整数型<br /> .局部变量 值, 整数型<br /> <br /> 数量 ＝ 取数组成员数 (数组)<br /> .计次循环首 (数量, 数)<br />     下标 ＝ 数量 － 数 ＋ 1<br />     .如果真 (数组 [下标] ＝ 真)<br />         .计次循环首 (11, 值)<br />             高级表格EX1.置项目文本 (下标, 值, 下标, 值, “”)<br />         .计次循环尾 ()<br />         数组 [下标] ＝ 假<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _高级表格EX1_项目退出编辑, 整数型<br /> .参数 项目索引, 整数型<br /> .参数 列索引, 整数型<br /> .参数 进入模式, 整数型<br /> .参数 项目内容, 整数型<br /> <br /> .如果真 (项目内容 ≠ 0 且 项目索引 ＞ 0 且 项目索引 ＜ 5)<br />     数组 [项目索引] ＝ 真<br /> .如果真结束

效果:

例子.zip (5.62 KB, 下载次数: 1)

昨天 12:46 上传

点击文件名下载附件

z573277679

保护区：第0行（表头）、最后两行（备注、合计）、第0列（1234序号）不动。
操作区：中间的数据行（1到4行）。
逻辑：从下往上找，找到第一个有数据的行，把它的内容（第1列到第11列）清空，然后停止。如果这一行是空的，自动跳过继续往上找。

按钮1为主要逻辑代码，按钮2、按钮3作为演示代码。

  

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

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
本行有数据	逻辑型
总行数	整数型

总行数 ＝ 高级表格EX1.取项目数量 ()
' 从倒数第4行开始往上找
变量循环首 (总行数 － 3, 1, -1, i)
本行有数据 ＝ 假
' 检查是否有数据
变量循环首 (1, 11, 1, j)
如果真 (高级表格EX1.取项目文本 (i, j) ≠ “”)
本行有数据 ＝ 真
跳出循环 ()

变量循环尾 ()
' 清空数据
如果真 (本行有数据 ＝ 真)
变量循环首 (1, 11, 1, j)
高级表格EX1.置项目文本 (i, j, 0, 1, “”)
变量循环尾 ()
跳出循环 ()

变量循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型

' 循环填充第 1 行到第 4 行（这是你的数据区）
变量循环首 (1, 4, 1, i)
' 模拟填入一些数据
高级表格EX1.置项目文本 (i, 1, 0, 1, “测试商品_” ＋ 到文本 (i))  ' 名称
高级表格EX1.置项目文本 (i, 2, 0, 1, “规格” ＋ 到文本 (i) ＋ “X”)  ' 规格
高级表格EX1.置项目文本 (i, 3, 0, 1, “50”)  ' 重量
高级表格EX1.置项目文本 (i, 5, 0, 1, “100”)  ' 件数
高级表格EX1.置项目文本 (i, 7, 0, 1, “500”)  ' 千重
高级表格EX1.置项目文本 (i, 8, 0, 1, “20”)  ' 千数
高级表格EX1.置项目文本 (i, 10, 0, 1, “15.5”)  ' 单价
高级表格EX1.置项目文本 (i, 11, 0, 1, “1550”)  ' 金额
' 注意：我是指定列号填写的，避开了那些被合并或不用的列
变量循环尾 ()
信息框 (“测试数据已填充，现在可以点‘按钮1’测试删除了！”, 0, , )

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

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型

' 这里的逻辑是：把中间 1-4 行，1-11 列全部清空
变量循环首 (1, 4, 1, i)
变量循环首 (1, 11, 1, j)
高级表格EX1.置项目文本 (i, j, 0, 1, “”)
变量循环尾 ()
变量循环尾 ()

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 本行有数据, 逻辑型<br /> .局部变量 总行数, 整数型<br /> <br /> 总行数 ＝ 高级表格EX1.取项目数量 ()<br /> <br /> ' 从倒数第4行开始往上找<br /> .变量循环首 (总行数 － 3, 1, -1, i)<br /> <br />     本行有数据 ＝ 假<br /> <br />     ' 检查是否有数据<br />     .变量循环首 (1, 11, 1, j)<br />         .如果真 (高级表格EX1.取项目文本 (i, j) ≠ “”)<br />             本行有数据 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br />     ' 清空数据<br />     .如果真 (本行有数据 ＝ 真)<br />         .变量循环首 (1, 11, 1, j)<br />             高级表格EX1.置项目文本 (i, j, 0, 1, “”)<br />         .变量循环尾 ()<br /> <br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' 循环填充第 1 行到第 4 行（这是你的数据区）<br /> .变量循环首 (1, 4, 1, i)<br />     ' 模拟填入一些数据<br />     高级表格EX1.置项目文本 (i, 1, 0, 1, “测试商品_” ＋ 到文本 (i))  ' 名称<br />     高级表格EX1.置项目文本 (i, 2, 0, 1, “规格” ＋ 到文本 (i) ＋ “X”)  ' 规格<br />     高级表格EX1.置项目文本 (i, 3, 0, 1, “50”)  ' 重量<br />     高级表格EX1.置项目文本 (i, 5, 0, 1, “100”)  ' 件数<br />     高级表格EX1.置项目文本 (i, 7, 0, 1, “500”)  ' 千重<br />     高级表格EX1.置项目文本 (i, 8, 0, 1, “20”)  ' 千数<br />     高级表格EX1.置项目文本 (i, 10, 0, 1, “15.5”)  ' 单价<br />     高级表格EX1.置项目文本 (i, 11, 0, 1, “1550”)  ' 金额<br />     ' 注意：我是指定列号填写的，避开了那些被合并或不用的列<br /> .变量循环尾 ()<br /> <br /> 信息框 (“测试数据已填充，现在可以点‘按钮1’测试删除了！”, 0, , )<br /> <br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' 这里的逻辑是：把中间 1-4 行，1-11 列全部清空<br /> .变量循环首 (1, 4, 1, i)<br />     .变量循环首 (1, 11, 1, j)<br />         高级表格EX1.置项目文本 (i, j, 0, 1, “”)<br />     .变量循环尾 ()<br /> .变量循环尾 ()

z573277679