超级列表框取每列数据只能一个一个取吗？

xf702

.版本 2
.支持库 iext

    取数据 ＝ 超级列表框1.取标题 (NN － 1, 2)
    加入成员 (文本数组, 取数据)

笨来无一悟

重定义数组(文本数组,假,超级列表框1.行数-1) 计次循环首(取数组成员数(文本数组),计次) 文本数组[计次]=超级列表框1.取标题 (计次, 2)

APPLEUFO

  

子程序名	返回值类型	公开	备 注
转换_列表框数据转为文本	文本型		只能是 报表的超级列表框。  列之间用 #模块常量_长空格 分割，行  用换行符分割的

变量名	类 型	静态	数组	备 注
n1	整数型
m1	整数型
局变_行索引	整数型
局变_列索引	整数型
局变_临时	文本型
局变_一行的内容	文本型
局变_列表框内容	文本型		0

重定义数组 (局变_列表框内容, 假, 程变_简化超级列表框.取表项数 ())
计次循环首 (程变_简化超级列表框.取表项数 (), n1)
局变_行索引 ＝ n1 － 1
计次循环首 (程变_简化超级列表框.取列数 (), m1)
局变_列索引 ＝ m1 － 1
局变_临时 ＝ 程变_简化超级列表框.取标题 (局变_行索引, 局变_列索引)
局变_一行的内容 ＝ 局变_一行的内容 ＋ 局变_临时 ＋ 字符 (9)
计次循环尾 ()
局变_列表框内容 [n1] ＝ 取文本左边 (局变_一行的内容, 倒找文本 (局变_一行的内容, 程变_长空格, , 假) － 1)  ' 去掉末尾多余的 长空格
局变_一行的内容 ＝ “”
计次循环尾 ()
返回 (转换模块_文本数组转文本型_内存叠加 (局变_列表框内容))

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 转换_列表框数据转为文本, 文本型, 公开, 只能是 报表的超级列表框。  列之间用 #模块常量_长空格 分割，行  用换行符分割的<br /> .局部变量 n1, 整数型<br /> .局部变量 m1, 整数型<br /> .局部变量 局变_行索引, 整数型<br /> .局部变量 局变_列索引, 整数型<br /> .局部变量 局变_临时, 文本型<br /> .局部变量 局变_一行的内容, 文本型<br /> .局部变量 局变_列表框内容, 文本型, , "0"<br /> <br /> 重定义数组 (局变_列表框内容, 假, 程变_简化超级列表框.取表项数 ())<br /> <br /> .计次循环首 (程变_简化超级列表框.取表项数 (), n1)<br /> <br />     局变_行索引 ＝ n1 － 1<br /> <br />     .计次循环首 (程变_简化超级列表框.取列数 (), m1)<br /> <br />         局变_列索引 ＝ m1 － 1<br /> <br />         局变_临时 ＝ 程变_简化超级列表框.取标题 (局变_行索引, 局变_列索引)<br /> <br />         局变_一行的内容 ＝ 局变_一行的内容 ＋ 局变_临时 ＋ 字符 (9)<br /> <br />     .计次循环尾 ()<br /> <br /> <br />     局变_列表框内容 [n1] ＝ 取文本左边 (局变_一行的内容, 倒找文本 (局变_一行的内容, 程变_长空格, , 假) － 1)  ' 去掉末尾多余的 长空格<br /> <br />     局变_一行的内容 ＝ “”<br /> .计次循环尾 ()<br /> <br /> 返回 (转换模块_文本数组转文本型_内存叠加 (局变_列表框内容))

可以一次取一整页

xf702

mgut 发表于 2024-4-9 11:44
取数据 ＝ 超级列表框1.取标题 (NN － 1, 2)+超级列表框1.取标题 (NN － 1, 3)+超级列表框1.取标题 (NN  ...

真的假的怎么感觉不对劲呢

mgut

  取数据 ＝ 超级列表框1.取标题 (NN － 1, 2)+超级列表框1.取标题 (NN － 1, 3)+超级列表框1.取标题 (NN － 1, 4)+超级列表框1.取标题 (NN － 1, 5)