还是有点问题 请帮忙看看 @zainex

sphinxes

nh nh xx.e (20.39 KB, 下载次数: 5)

昨天 23:21 上传

点击文件名下载附件

点按钮 没反应
需要点一下 高级表格里面的项目 才能删除，点过的那行内容

@zainex


补充内容 (2025-12-24 23:24):
可能焦点的问题吧

z573277679

这样？

  

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

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

总行数 ＝ 高级表格EX1.取项目数量 ()
合计行 ＝ 总行数 － 1
备注行 ＝ 总行数 － 2
' 第一步：检查【合计行】 (最后一行)
' 判断标准：只要合计行的标题变了（比如拼接了数字），或者不等于初始状态，就先重置它
如果真 (高级表格EX1.取项目文本 (合计行, 0) ≠ “合计重量：” 或 高级表格EX1.取项目文本 (合计行, 4) ≠ “合计件数：” 或 高级表格EX1.取项目文本 (合计行, 9) ≠ “合计金额：”)
' 恢复合计行的初始标题状态
高级表格EX1.置项目文本 (合计行, 0, 0, 0, “合计重量：”)
高级表格EX1.置项目文本 (合计行, 4, 0, 0, “合计件数：”)
高级表格EX1.置项目文本 (合计行, 9, 0, 0, “合计金额：”)
' 任务完成，直接返回
返回 ()

' 第二步：检查【备注行】 (倒数第2行)
' 判断标准：如果不等于初始的“备注：”，说明有内容
如果真 (高级表格EX1.取项目文本 (备注行, 0) ≠ “备注：”)
' 恢复备注行的初始状态
高级表格EX1.置项目文本 (备注行, 0, 0, 0, “备注：”)
' 任务完成，直接返回
返回 ()

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

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

变量循环尾 ()

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

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮Ex1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 总行数, 整数型<br /> .局部变量 合计行, 整数型<br /> .局部变量 备注行, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 本行有数据, 逻辑型<br /> <br /> 总行数 ＝ 高级表格EX1.取项目数量 ()<br /> 合计行 ＝ 总行数 － 1<br /> 备注行 ＝ 总行数 － 2<br /> <br /> <br /> ' 第一步：检查【合计行】 (最后一行)<br /> ' 判断标准：只要合计行的标题变了（比如拼接了数字），或者不等于初始状态，就先重置它<br /> <br /> .如果真 (高级表格EX1.取项目文本 (合计行, 0) ≠ “合计重量：” 或 高级表格EX1.取项目文本 (合计行, 4) ≠ “合计件数：” 或 高级表格EX1.取项目文本 (合计行, 9) ≠ “合计金额：”)<br /> <br />     ' 恢复合计行的初始标题状态<br />     高级表格EX1.置项目文本 (合计行, 0, 0, 0, “合计重量：”)<br />     高级表格EX1.置项目文本 (合计行, 4, 0, 0, “合计件数：”)<br />     高级表格EX1.置项目文本 (合计行, 9, 0, 0, “合计金额：”)<br /> <br />     ' 任务完成，直接返回<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 第二步：检查【备注行】 (倒数第2行)<br /> ' 判断标准：如果不等于初始的“备注：”，说明有内容<br /> .如果真 (高级表格EX1.取项目文本 (备注行, 0) ≠ “备注：”)<br /> <br />     ' 恢复备注行的初始状态<br />     高级表格EX1.置项目文本 (备注行, 0, 0, 0, “备注：”)<br /> <br />     ' 任务完成，直接返回<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 第三步：检查【数据行】 (倒数第3行往上)<br /> <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 /> .变量循环尾 ()

z573277679

你试下我的那个代码吧

z573277679

按钮1就行了，我就直接复制过来了

  

子程序名	返回值类型	公开	备 注
_按钮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 /> .变量循环尾 ()

sphinxes

z573277679 发表于 2025-12-24 23:31
你试下我的那个代码吧

我试试，谢谢

sphinxes

z573277679 发表于 2025-12-24 23:31
你试下我的那个代码吧

你的代码 不能删除 最后2行第一列的内容 而且我想删除的是 最后2行的部分内容

zainex

你没有在数组中进行标记,
你在第一行用代码设置了文本, 同样需要用代码标记第一行为真:

  

数组aa ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H” }
下标 ＝ { 2, 3, 4, 6, 8, 9, 11, 12 }
数组 [1] ＝ 真
计次循环首 (取数组成员数 (数组aa), 数)
高级表格EX1.置项目文本 (1, 下标 [数] － 1, 1, 0, 数组aa [数])
计次循环尾 ()

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

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> 数组aa ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H” }<br /> 下标 ＝ { 2, 3, 4, 6, 8, 9, 11, 12 }<br /> 数组 [1] ＝ 真<br /> .计次循环首 (取数组成员数 (数组aa), 数)<br />     高级表格EX1.置项目文本 (1, 下标 [数] － 1, 1, 0, 数组aa [数])<br /> .计次循环尾 ()

z573277679

知道了，这样就行了。

  

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

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

总行数 ＝ 高级表格EX1.取项目数量 ()
高级表格EX1.置项目文本 (总行数 － 1, 0, 0, 0, “合计重量：”)  ' 恢复第0列标题
高级表格EX1.置项目文本 (总行数 － 1, 4, 0, 0, “合计件数：”)  ' 恢复第4列标题
高级表格EX1.置项目文本 (总行数 － 1, 9, 0, 0, “合计金额：”)  ' 恢复第9列标题
高级表格EX1.置项目文本 (总行数 － 2, 0, 1, 0, “备注：”)
' 从倒数第3行开始往上找 (即跳过合计和备注行)
变量循环首 (总行数 － 3, 1, -1, i)
本行有数据 ＝ 假
' 检查该行是否有数据 (检查 1 到 11 列)
变量循环首 (1, 11, 1, j)
如果真 (高级表格EX1.取项目文本 (i, j) ≠ “”)
本行有数据 ＝ 真
跳出循环 ()

变量循环尾 ()
' 如果找到有数据的行，清空它
如果真 (本行有数据 ＝ 真)
变量循环首 (1, 11, 1, j)
高级表格EX1.置项目文本 (i, j, 0, 1, “”)
变量循环尾 ()
高级表格EX1.置项目文本 (i, 0, i, 0, 到文本 (i))
跳出循环 ()  ' 只删除最后一条数据，删完就退出

变量循环尾 ()

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

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮Ex1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 本行有数据, 逻辑型<br /> .局部变量 总行数, 整数型<br /> <br /> 总行数 ＝ 高级表格EX1.取项目数量 ()<br /> 高级表格EX1.置项目文本 (总行数 － 1, 0, 0, 0, “合计重量：”)  ' 恢复第0列标题<br /> 高级表格EX1.置项目文本 (总行数 － 1, 4, 0, 0, “合计件数：”)  ' 恢复第4列标题<br /> 高级表格EX1.置项目文本 (总行数 － 1, 9, 0, 0, “合计金额：”)  ' 恢复第9列标题<br /> <br /> 高级表格EX1.置项目文本 (总行数 － 2, 0, 1, 0, “备注：”)<br /> <br /> ' 从倒数第3行开始往上找 (即跳过合计和备注行)<br /> .变量循环首 (总行数 － 3, 1, -1, i)<br /> <br />     本行有数据 ＝ 假<br /> <br />     ' 检查该行是否有数据 (检查 1 到 11 列)<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 />         高级表格EX1.置项目文本 (i, 0, i, 0, 到文本 (i))<br /> <br />         跳出循环 ()  ' 只删除最后一条数据，删完就退出<br />     .如果真结束<br /> <br /> .变量循环尾 ()

sphinxes

z573277679 发表于 2025-12-24 23:51
知道了，这样就行了。

[e=4].版本 2

能一行一行删吗 这样一下子删除了后面三行

补充内容 (2025-12-25 11:45):
其实你的代码 更符合我想要的，我喜欢在一个按钮下完成，不喜欢一个功能，代码要写的到处都是。

Giggle梦痕

  

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

子程序3 ()

子程序名	返回值类型	公开	备 注
子程序3

变量名	类 型	静态	数组	备 注
局_选中项	整数型
局_列数	整数型

局_选中项 ＝ 高级表格EX1.现行选中项
如果真 (局_选中项 ≠ -1 且 局_选中项 ≠ 0 且 局_选中项 ≠ 5 且 局_选中项 ≠ 6)
计次循环首 (高级表格EX1.取列数量 (), 局_列数)
高级表格EX1.置项目文本 (局_选中项, 局_列数, 局_选中项, 局_列数, “”)
计次循环尾 ()

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

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 _按钮Ex1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> <br /> 子程序3 ()<br /> <br /> .子程序 子程序3<br /> .局部变量 局_选中项, 整数型<br /> .局部变量 局_列数, 整数型<br /> <br /> 局_选中项 ＝ 高级表格EX1.现行选中项<br /> .如果真 (局_选中项 ≠ -1 且 局_选中项 ≠ 0 且 局_选中项 ≠ 5 且 局_选中项 ≠ 6)<br />     .计次循环首 (高级表格EX1.取列数量 (), 局_列数)<br />         高级表格EX1.置项目文本 (局_选中项, 局_列数, 局_选中项, 局_列数, “”)<br />     .计次循环尾 ()

补充内容 (2025-12-25 11:52):
所以你是需要 清除选中行的数据么？ 我这个是清除选中行里的数据的代码