需要乘选择夹里面创建100个高级表格用复制组件怎么写

天狼112 · 发表于 2024-5-7 21:23:26

需要乘选择夹里面创建100个高级表格用复制组件怎么写，我是新手，一个一个画，太麻烦了，求大神指导下，怎么用复制组件，在一个选择夹里面，创建100个高级表格，谢谢了

每个索引一个高级表格，0索引时，取标题为"1",1索引时，，取标题为"2"，2索引时，取标题为"3"、、、、、、如此类推，100个索引，100个高级表格

三哥1123 · 发表于 2024-5-7 21:23:27

.版本 2
.支持库 eGrid
.支持库 iext3

.程序集窗口程序集_窗口1
.程序集变量复制表格, 高级表格, , "1"

.子程序 _高级选择夹1_子夹被改变
.局部变量组件句柄, 整数型
.局部变量 i, 整数型
.局部变量寻找表格, 高级表格

组件句柄＝寻找组件 (高级选择夹1, , “高级表格”, , )

.计次循环首 (取找到组件数目 (组件句柄), i)
寻找表格＝取所找到组件 (组件句柄, i － 1)
.如果真 (寻找表格.可视＝真)
      寻找表格.可视＝假
.如果真结束

.计次循环尾 ()
' 信息框 (“高级表格数量” ＋到文本 (取找到组件数目 (组件句柄)), 0, , )

清除组件寻找句柄 (组件句柄)

复制表格 [高级选择夹1.现行子夹＋ 1].可视＝真

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 ii, 整数型

.计次循环首 (15, i)
高级选择夹1.加入子夹 (到文本 (i), , , , )
.判断开始 (i ＞ 1)
      重定义数组 (复制表格, 真, 取数组成员数 (复制表格) ＋ 1)
      复制窗口组件 (高级表格1, 复制表格 [i])
.判断 (i ＝ 1)
      复制表格 [i] ＝高级表格1
.默认

.判断结束

复制表格 [i].左边＝ 0
复制表格 [i].顶边＝ 20
世界单个帐号数据写入 (复制表格 [i], i)  ' 数据写入，子程序号，写入数据，要在最后，不能在判断内。
.计次循环尾 ()

.子程序世界单个帐号数据写入
.参数写入表格帐号数据, 高级表格
.参数总表格行号, 整数型

写入表格帐号数据.置数据 (0, 0, #表格常量.文本型, 总表格行号)  ' 测试，给个基础数值，

.子程序 _窗口1_创建完毕