易语言 高级表格

我的是这样弄的：

版本 2

支持库 iext

子程序 _主窗口_创建完毕

如果 (文件是否存在 (取运行目录 () ＋ “\data\” ＋ “特种设备台账edb”) ＝ 假)

信息框 (“数据表不存在！”, 16, “提示”)

否则

打开 (取运行目录 () ＋ “\data\” ＋ “特种设备台账edb”, , , 4, , “”, )

如果结束

_监控时钟_周期事件 ()

读取行 ()

透明标签1左边 ＝ 主窗口宽度 － 透明标签1宽度 － (选择夹1宽度 － 透明标签1宽度) ÷ 2

当前时间时钟周期 ＝ 1000

版本 2

支持库 eGrid

子程序 读取行

局部变量 变量1, 整数型

高级表格置列宽 (0, 0)

高级表格置列宽 (1, 20)

高级表格置数据 (0, 1, 1, “序号”)

高级表格置列宽 (2, 100)

高级表格置数据 (0, 2, 1, “设备名称”)

高级表格置列宽 (3, 100)

高级表格置数据 (0, 3, 1, “单位内编码”)

高级表格置列宽 (4, 100)

高级表格置数据 (0, 4, 1, “规格型号”)

高级表格置列宽 (5, 100)

高级表格置数据 (0, 5, 1, “安装部位”)

高级表格置列宽 (6, 100)

高级表格置数据 (0, 6, 1, “使用证编号”)

高级表格置列宽 (7, 100)

高级表格置数据 (0, 7, 1, “年度检验日期”)

高级表格置列宽 (8, 100)

高级表格置数据 (0, 8, 1, “年度检验有效期”)

高级表格置列宽 (9, 100)

高级表格置数据 (0, 9, 1, “定期检验日期”)

高级表格置列宽 (10, 100)

高级表格置数据 (0, 10, 1, “定期检验有效期”)

高级表格置列宽 (11, 100)

高级表格置数据 (0, 11, 1, “安装就位日期”)

高级表格置列宽 (12, 100)

高级表格置数据 (0, 12, 1, “报废停用日期”)

高级表格置列宽 (13, 100)

高级表格置数据 (0, 13, 1, “重大维修日期”)

计次循环首 (取记录数 (), 变量1)

跳到 (变量1)

高级表格插入行 (“”, 高级表格行数)

高级表格置数据 (高级表格行数 － 1, 1, 1, 读 (1))

高级表格置数据 (高级表格行数 － 1, 2, 1, 读 (2))

高级表格置数据 (高级表格行数 － 1, 3, 1, 读 (3))

高级表格置数据 (高级表格行数 － 1, 4, 1, 读 (4))

高级表格置数据 (高级表格行数 － 1, 5, 1, 读 (5))

高级表格置数据 (高级表格行数 － 1, 6, 1, 读 (6))

高级表格置数据 (高级表格行数 － 1, 7, 1, 读 (7))

高级表格置数据 (高级表格行数 － 1, 8, 1, 读 (8))

高级表格置数据 (高级表格行数 － 1, 9, 1, 读 (9))

高级表格置数据 (高级表格行数 － 1, 10, 1, 读 (10))

高级表格置数据 (高级表格行数 － 1, 11, 1, 读 (11))

高级表格置数据 (高级表格行数 － 1, 12, 1, 读 (12))

高级表格置数据 (高级表格行数 － 1, 13, 1, 读 (13))

计次循环尾 ()

编号排序 ()

前提是没有表头的。因为是看的你的图没有

版本 2

支持库 eGrid

支持库 spec

子程序 _按钮1_被单击

局部变量 n, 整数型

局部变量 l, 整数型

判断循环首 (n ≤ 高级表格1行数)

    计次循环首 (高级表格1行数 － 1 － n, )

        l ＝ l ＋ 1

        如果真 (高级表格1行数 － l ＋ n ≤ n)

            跳出循环 ()

        如果真结束

        如果真 (高级表格1取数据 (高级表格1行数 － l, 0) ＝ 高级表格1取数据 (n, 0))

            调试输出 (“删除第” ＋ 到文本 (高级表格1行数 － l ＋ 1) ＋ “行的” ＋ 高级表格1取数据 (高级表格1行数 － l, 0))

            高级表格1删除行 (高级表格1行数 － l)

            l ＝ l － 1

        如果真结束

    计次循环尾 ()

    l ＝ 0

    n ＝ n ＋ 1

判断循环尾 ()