易语言 高级表格如何倒着置数据 谢谢各位路过老师 ！

高级表格有支持库例程 易语言——程序——新建 在“新建”窗口左侧的树形框有支持库例程。

在“窗口程序集1”中有“写测试数据”子程序。里面有设置单元格、列的属性。

置列类型 置宽度 置数据 置对齐方式 置单元格小数位数 置计算公式------------望采纳，谢谢

高级表格(错误太多)不如超级列表框

版本 2

程序集 窗口程序集1

程序集变量 语文, 双精度小数型

程序集变量 数学, 双精度小数型

程序集变量 外语, 双精度小数型

程序集变量 总分, 双精度小数型, , "0"

程序集变量 名次, 双精度小数型, , "0"

程序集变量 记录, 整数型

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

如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\数据库edb”)))

    创建数据库 ()

如果真结束

打开 (取运行目录 () ＋ “\数据库edb”, “数据库”, , , , , )

如果真 (取记录数 () ＝ 0)

    编辑框1获取焦点 ()

    返回 ()

如果真结束

刷新列表 ()

子程序 创建数据库

局部变量 字段, 字段信息, , "4"

字段 [1]名称 ＝ “姓名”

字段 [1]类型 ＝ #文本型

字段 [1]最大文本长度 ＝ 10

字段 [2]名称 ＝ “语文成绩”

字段 [2]类型 ＝ #文本型

字段 [2]最大文本长度 ＝ 5

字段 [3]名称 ＝ “数学成绩”

字段 [3]类型 ＝ #文本型

字段 [3]最大文本长度 ＝ 5

字段 [4]名称 ＝ “外语成绩”

字段 [4]类型 ＝ #文本型

字段 [4]最大文本长度 ＝ 5

创建 (取运行目录 () ＋ “\数据库edb”, 字段)

子程序 _按钮1_被单击

如果真 (按钮1标题 ＝ “修改”)

    修改数据库 ()

    _超级列表框1_右键单击表项 ()

    返回 ()

如果真结束

如果真 (编辑框1内容 ＝ “”)

    信息框 (“姓名不能为空!”, 0, )

    返回 ()

如果真结束

加记录 (编辑框1内容, 编辑框2内容, 编辑框3内容, 编辑框4内容)

刷新列表 ()

版本 2

支持库 iext

程序集 窗口程序集1

程序集变量 容器, 整数型

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

局部变量 k, 整数型

局部变量 kk, 整数型

局部变量 x, 整数型

置随机数种子 ()

计次循环首 (10, x)

    容器 ＝ 超级列表框1插入表项 (-1, , , , , )

    k ＝ 取随机数 (10000, 99999)

    kk ＝ 取随机数 (10000, 99999)

    超级列表框1置标题 (容器, 0, 到文本 (x))

    超级列表框1置标题 (容器, 1, 到文本 (k))

    超级列表框1置标题 (容器, 2, 到文本 (kk))

计次循环尾 ()

子程序 _按钮1_被单击

判断开始 (编辑框1内容 ＝ “” 或 编辑框2内容 ＝ “”)

    信息框 (“加入的内容不能为空！”, 0, )

默认

    容器 ＝ 超级列表框1插入表项 (-1, , , , , )

    超级列表框1置标题 (容器, 0, 到文本 (超级列表框1取表项数 ()))

    超级列表框1置标题 (容器, 1, 编辑框1内容)

    超级列表框1置标题 (容器, 2, 编辑框2内容)

判断结束

子程序 _超级列表框1_右键单击表项, , , 建个右键菜单

如果真 (超级列表框1现行选中项 ＞ -1)

    d出菜单 (右键菜单, , )

如果真结束

子程序 _复制本行_被选择, , , 右键菜单的子菜单 复制本行

局部变量 复制的文本, 文本型

复制的文本 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 0)

复制的文本 ＝ 复制的文本 ＋ “,” ＋ 超级列表框1取标题 (超级列表框1现行选中项, 1)

复制的文本 ＝ 复制的文本 ＋ “,” ＋ 超级列表框1取标题 (超级列表框1现行选中项, 2)

置剪辑板文本 (复制的文本)

子程序 _删除本行_被选择, , , 右键菜单的子菜单 删除本行

局部变量 列表, 文本型, , "0"

局部变量 每行的文本, 文本型

局部变量 每行的文本分割, 文本型, , "2"

局部变量 x, 整数型

清除数组 (列表)

计次循环首 (超级列表框1取表项数 (), x)

    如果真 (x － 1 ≠ 超级列表框1现行选中项)

        每行的文本 ＝ 超级列表框1取标题 (x － 1, 1)

        每行的文本 ＝ 每行的文本 ＋ “,” ＋ 超级列表框1取标题 (x － 1, 2)

        加入成员 (列表, 每行的文本)

    如果真结束

计次循环尾 ()

超级列表框1全部删除 ()

计次循环首 (取数组成员数 (列表), x)

    容器 ＝ 超级列表框1插入表项 (-1, , , , , )

    每行的文本分割 ＝ 分割文本 (列表 [x], “,”, )

    超级列表框1置标题 (容器, 0, 到文本 (x))

    超级列表框1置标题 (容器, 1, 每行的文本分割 [1])

    超级列表框1置标题 (容器, 2, 每行的文本分割 [2])

计次循环尾 ()

子程序 _复制本列_被选择, , , 右键菜单的子菜单 复制本列

' 超级列表框好像没办法取整列，还请会的高手指教！

子程序 _删除本列_被选择, , , 右键菜单的子菜单 删除本列

' 超级列表框好像没办法取整列，还请会的高手指教！