高级表格实现列交换，升级优化版(DeepSeek写的)

李泽勇2

  

子程序名	返回值类型	公开	备 注
高级表格调整列顺序			仅交换需要变化的列数据，提高效率
参数名	类 型	参考	可空	数组	备 注
表格组件	高级表格
顺序数组	整数型

变量名	类 型	静态	数组	备 注
当前列顺序	整数型		0
原始列顺序	整数型		0
原始表格数据	文本型		0	"0"
i	整数型
j	整数型
需要调整	逻辑型
初始列数	整数型

' ========== 初始化设置 ==========
初始列数 ＝ 表格组件.列数
如果真 (取数组成员数 (原始列顺序) ＝ 0)
重定义数组 (原始列顺序, 假, 初始列数)
重定义数组 (当前列顺序, 假, 初始列数)
计次循环首 (初始列数, i)
原始列顺序 [i] ＝ i － 1
当前列顺序 [i] ＝ i － 1
计次循环尾 ()
重定义数组 (原始表格数据, 假, 表格组件.行数, 初始列数)
计次循环首 (表格组件.行数, i)
计次循环首 (初始列数, j)
原始表格数据 [i] [j] ＝ 表格组件.取文本数据 (i － 1, j － 1)
计次循环尾 ()
计次循环尾 ()

' ========== 参数校验 ==========
如果真 (取数组成员数 (顺序数组) ≠ 初始列数)
信息框 (“顺序数组长度错误，需要” ＋ 到文本 (初始列数) ＋ “列”, 0, , )
返回 ()

计次循环首 (初始列数, i)
如果真 (顺序数组 [i] ＜ 0 或 顺序数组 [i] ≥ 初始列数)
信息框 (“第” ＋ 到文本 (i) ＋ “个元素值越界”, 0, , )
返回 ()

计次循环尾 ()
' ========== 检查调整必要性 ==========
需要调整 ＝ 假
计次循环首 (初始列数, i)
如果真 (当前列顺序 [i] ≠ 顺序数组 [i])
需要调整 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (需要调整))
返回 ()

' ========== 智能列数据交换 ==========
计次循环首 (初始列数, j)
如果真 (当前列顺序 [j] ≠ 顺序数组 [j])
' 使用原始表格数据直接定位
计次循环首 (表格组件.行数, i)
表格组件.置数据 (i － 1, j － 1, 1, 原始表格数据 [i] [顺序数组 [j] ＋ 1])
计次循环尾 ()

计次循环尾 ()
' ========== 更新列顺序记录 ==========
重定义数组 (当前列顺序, 假, 初始列数)
计次循环首 (初始列数, i)
当前列顺序 [i] ＝ 顺序数组 [i]
计次循环尾 ()

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 高级表格调整列顺序, , , 仅交换需要变化的列数据，提高效率<br /> .参数 表格组件, 高级表格<br /> .参数 顺序数组, 整数型, 数组<br /> .局部变量 当前列顺序, 整数型, 静态, "0"<br /> .局部变量 原始列顺序, 整数型, 静态, "0"<br /> .局部变量 原始表格数据, 文本型, 静态, "0", "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 需要调整, 逻辑型<br /> .局部变量 初始列数, 整数型, 静态<br /> <br /> ' ========== 初始化设置 ==========<br /> 初始列数 ＝ 表格组件.列数<br /> <br /> .如果真 (取数组成员数 (原始列顺序) ＝ 0)<br />     重定义数组 (原始列顺序, 假, 初始列数)<br />     重定义数组 (当前列顺序, 假, 初始列数)<br />     .计次循环首 (初始列数, i)<br />         原始列顺序 <i> ＝ i － 1<br />         当前列顺序 <i> ＝ i － 1<br />     .计次循环尾 ()<br /> <br />     重定义数组 (原始表格数据, 假, 表格组件.行数, 初始列数)<br />     .计次循环首 (表格组件.行数, i)<br />         .计次循环首 (初始列数, j)<br />             原始表格数据 <i> [j] ＝ 表格组件.取文本数据 (i － 1, j － 1)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> ' ========== 参数校验 ==========<br /> .如果真 (取数组成员数 (顺序数组) ≠ 初始列数)<br />     信息框 (“顺序数组长度错误，需要” ＋ 到文本 (初始列数) ＋ “列”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (初始列数, i)<br />     .如果真 (顺序数组 <i> ＜ 0 或 顺序数组 <i> ≥ 初始列数)<br />         信息框 (“第” ＋ 到文本 (i) ＋ “个元素值越界”, 0, , )<br />         返回 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ========== 检查调整必要性 ==========<br /> 需要调整 ＝ 假<br /> .计次循环首 (初始列数, i)<br />     .如果真 (当前列顺序 <i> ≠ 顺序数组 <i>)<br />         需要调整 ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取反 (需要调整))<br />     返回 ()<br /> .如果真结束<br /> <br /> ' ========== 智能列数据交换 ==========<br /> <br /> <br /> .计次循环首 (初始列数, j)<br />     .如果真 (当前列顺序 [j] ≠ 顺序数组 [j])<br />         ' 使用原始表格数据直接定位<br />         .计次循环首 (表格组件.行数, i)<br />             表格组件.置数据 (i － 1, j － 1, 1, 原始表格数据 <i> [顺序数组 [j] ＋ 1])<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ========== 更新列顺序记录 ==========<br /> 重定义数组 (当前列顺序, 假, 初始列数)<br /> .计次循环首 (初始列数, i)<br />     当前列顺序 <i> ＝ 顺序数组 <i><br /> .计次循环尾 ()

ctry78985

感谢分享

please

感谢分享，支持开源！！！

查过

下个学习一下

豆豆灰常开心

下个学习一下

杨明煜

感谢，看看！.........

pipicool

学习一下

kyo9766

学习一下看看 列交换 ，感谢分享

1184798949

感谢分享

何浩文

支持开源~！感谢分享