易语言高级表格限制显示行数记录例子

 高级表格 限制显示行数记录例子

.版本 2
.支持库 eGrid

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

计算 ()
监控高级表格2.置数据 (0, 1, 1, “数值”)
监控高级表格2.置数据 (0, 2, 1, “数值1”)
监控高级表格2.置数据 (0, 3, 1, “数值2”)
监控高级表格2.置数据 (0, 4, 1, “数值3”)

.子程序 计算
.局部变量 行号变量, 整数型

.计次循环首 (监控高级表格2.行数 － 1, 行号变量)
    监控高级表格2.置数据 (行号变量, 1, 1, “001”)
    监控高级表格2.置数据 (行号变量, 2, 1, “002”)
    监控高级表格2.置数据 (行号变量, 3, 1, “003”)
    监控高级表格2.置数据 (行号变量, 4, 1, “004”)
.计次循环尾 ()

.子程序 _按钮1_被单击

表格限制行数 (监控高级表格2, 到整数 (编辑框1.内容))

.子程序 表格限制行数
.参数 表格容器, 高级表格
.参数 保留行数, 整数型
.局部变量 计次, 整数型
.局部变量 多出的行, 整数型

.计次循环首 (表格容器.行数, 计次)
    .如果真 (表格容器.行数 － 1 ＞ 保留行数)
        表格容器.删除行 (计次 － 多出的行)
        多出的行 ＝ 多出的行 ＋ 1
    .如果真结束

.计次循环尾 ()

@ruyan666