高级表格中删除一行，怎样让后面行的运行状态列对应更新

kittyhello

如下图所示，给高级表格设置了个右键菜单，当程序运行时，我将第5行删除后，第6行自然变成了很5行，但状态一列的变化还保持在第6行
要怎么才能实现同步
程序见附件，引用了精易模块
谢谢~~


demo.rar (228.54 KB, 下载次数: 9)

2025-3-31 00:11 上传

点击文件名下载附件

算法艺术家

  

修复BUG

子程序名	返回值类型	公开	备 注
_高级表格1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

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

窗口1.弹出菜单 (窗口1.表格操作, 取鼠标水平位置 (), 取鼠标垂直位置 ())
row ＝ 高级表格1.取光标行号 ()
高级表格1.删除行 (row)
调试输出 (row)
高级表格重置首列序号 (高级表格1, 真)

子程序名	返回值类型	公开	备 注
高级表格重置首列序号
参数名	类 型	参考	可空	数组	备 注
高级表格	高级表格
是否有表头	逻辑型

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

高级表格.禁止重画 ()  ' 添加这两条命令，速度会快很多
高级表格.可视 ＝ 假
计次循环首 (高级表格.行数, i)
判断 (是否有表头 ＝ 真)
高级表格.置数据 (i, 0, #表格常量 .文本型, 到文本 (i))
高级表格.置数据 (i － 1, 0, #表格常量 .文本型, 到文本 (i))

计次循环尾 ()
高级表格.允许重画 ()
高级表格.可视 ＝ 真

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

修复BUG<br /> .版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 _高级表格1_鼠标右键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 row, 整数型<br /> <br /> 窗口1.弹出菜单 (窗口1.表格操作, 取鼠标水平位置 (), 取鼠标垂直位置 ())<br /> row ＝ 高级表格1.取光标行号 ()<br /> 高级表格1.删除行 (row)<br /> 调试输出 (row)<br /> 高级表格重置首列序号 (高级表格1, 真)<br /> <br /> .子程序 高级表格重置首列序号, , 公开<br /> .参数 高级表格, 高级表格<br /> .参数 是否有表头, 逻辑型<br /> .局部变量 i, 整数型<br /> <br /> 高级表格.禁止重画 ()  ' 添加这两条命令，速度会快很多<br /> 高级表格.可视 ＝ 假<br /> .计次循环首 (高级表格.行数, i)<br />     .判断开始 (是否有表头 ＝ 真)<br />         高级表格.置数据 (i, 0, #表格常量.文本型, 到文本 (i))<br />     .默认<br />         高级表格.置数据 (i － 1, 0, #表格常量.文本型, 到文本 (i))<br />     .判断结束<br /> <br /> <br /> .计次循环尾 ()<br /> 高级表格.允许重画 ()<br /> 高级表格.可视 ＝ 真

是可可吖

超级列表框更简单

kittyhello

是可可吖 发表于 2025-3-31 00:22
超级列表框更简单

有demo吗？

算法艺术家

  

子程序名	返回值类型	公开	备 注
超列重置首列序号
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
补齐序号位数	整数型				默认为空，不补齐

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

超级列表框.禁止重画 ()  ' 添加这两条命令，速度会快很多
超级列表框.可视 ＝ 假
计次循环首 (超级列表框.取表项数 (), i)
判断 (补齐序号位数 ＝ 0)
超级列表框.置标题 (i － 1, 0, 到文本 (i))
超级列表框.置标题 (i － 1, 0, 文本_自动补零 (到文本 (i), 补齐序号位数))

计次循环尾 ()
超级列表框.允许重画 ()
超级列表框.可视 ＝ 真

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列重置首列序号, , 公开<br /> .参数 超级列表框, 超级列表框<br /> .参数 补齐序号位数, 整数型, 可空, 默认为空，不补齐<br /> .局部变量 i, 整数型<br /> <br /> 超级列表框.禁止重画 ()  ' 添加这两条命令，速度会快很多<br /> 超级列表框.可视 ＝ 假<br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     .判断开始 (补齐序号位数 ＝ 0)<br />         超级列表框.置标题 (i － 1, 0, 到文本 (i))<br />     .默认<br />         超级列表框.置标题 (i － 1, 0, 文本_自动补零 (到文本 (i), 补齐序号位数))<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 超级列表框.允许重画 ()<br /> 超级列表框.可视 ＝ 真

samll88

  

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

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

高级表格1.删除行 (高级表格1.取光标行号 ())
变量循环首 (高级表格1.取光标行号 (), 高级表格1.行数, 1, i)
高级表格1.置数据 (i, 0, #表格常量 .文本型, 到文本 (i))
变量循环尾 ()

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> 高级表格1.删除行 (高级表格1.取光标行号 ())<br /> .变量循环首 (高级表格1.取光标行号 (), 高级表格1.行数, 1, i)<br />     高级表格1.置数据 (i, 0, #表格常量.文本型, 到文本 (i))<br /> .变量循环尾 ()

cckj

  

变量名	类 型	静态	数组	备 注
表格数据	文本型
选中行号	整数型

子程序名	返回值类型	公开	备 注
_删除行并更新状态	公开

表格数据 = 高级表格1.取数据 ()
选中行号 = 高级表格1.取选中行号 ()

如果 (选中行号 > 0 且 选中行号 <= 表格数据.取行数 ()) 则
高级表格1.删除行 (选中行号)

.局部变量 i, 整数型
.局部变量 新状态, 文本型

对于 i = 1 到 表格数据.取行数 () - 1  ' 注意这里要减1，因为已经删除了一行
新状态 = "等待开始.."
如果 (i < (表格数据.取行数 () / 2) * 2) 则  ' 假设只有偶数行才显示计时状态，这里逻辑可能需要根据实际情况调整
新状态 = "正在计时[" + 字符串 (i / 2 + 1) + "]"  ' +1是因为删除了一行后，行号与原本的状态可能不匹配，这里需要根据实际情况调整
结束如果

' 假设表格数据的第三列是状态列，这里设置新状态
表格数据.设置单元格文本 (i, 3, 新状态)
循环结束

高级表格1.设置数据 (表格数据)
否则
提示 ("请先选择一行或选择的行号无效")
结束如果
返回

.版本 2<br /> .局部变量 表格数据, 文本型<br /> .局部变量 选中行号, 整数型<br /> <br /> .子程序 _删除行并更新状态, 公开<br />     表格数据 = 高级表格1.取数据()<br />     选中行号 = 高级表格1.取选中行号()<br />     <br />     如果 (选中行号 > 0 且 选中行号 <= 表格数据.取行数()) 则<br />         高级表格1.删除行(选中行号)<br />         <br />         .局部变量 i, 整数型<br />         .局部变量 新状态, 文本型<br />         <br />         对于 i = 1 到 表格数据.取行数() - 1  ' 注意这里要减1，因为已经删除了一行<br />             新状态 = "等待开始.."<br />             如果 (i < (表格数据.取行数() / 2) * 2) 则  ' 假设只有偶数行才显示计时状态，这里逻辑可能需要根据实际情况调整<br />                 新状态 = "正在计时[" + 字符串(i / 2 + 1) + "]"  ' +1是因为删除了一行后，行号与原本的状态可能不匹配，这里需要根据实际情况调整<br />             结束如果<br />             <br />             ' 假设表格数据的第三列是状态列，这里设置新状态<br />             表格数据.设置单元格文本(i, 3, 新状态)<br />         循环结束<br />         <br />         高级表格1.设置数据(表格数据)<br />     否则<br />         提示("请先选择一行或选择的行号无效")<br />     结束如果<br /> 返回

kittyhello

samll88 发表于 2025-3-31 07:37
[e=0].版本 2
.支持库 eGrid

更改表格的状态是在线程里的，不行呢

kittyhello

cckj 发表于 2025-3-31 08:42
[e=0].版本 2
.局部变量 表格数据, 文本型
.局部变量 选中行号, 整数型

更改状态是在线程里的，不行呢

kittyhello

算法艺术家 发表于 2025-3-31 00:34
[e=3].版本 2
.支持库 iext

更改状态是在线程里的，不行呢