根据数据库记录数复制窗口组件，遇到难题（不能复制图...

xxz123xxz

根据数据库记录数复制窗口组件，遇到难题（不能复制图...

.版本 2
.支持库 mysql
.支持库 SqliteDB

MySql句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “3600gz”, “mysql”, 到整数 (3306))  ' 连接数据库
数据库文件名 ＝ 取运行目录 () ＋ “\yfsrh.sdb”
.如果 (数据库.打开 (数据库文件名, 真))
    sql ＝ “select 入库表.商品名称,入库表.零售价格*等级折扣.折扣 as 零售价格 from 入库表,等级折扣 where 入库表.商品名称= ' 编辑框1.内容 '  and  等级折扣.等级='dengji组合框.内容 '”
    记录集.置SQL语句 (sql, 数据库)
    结果 ＝ 记录集.打开 ()
.否则

.如果结束

执行SQL语句 (MySql句柄, sql)
子记录集句柄 ＝ 取记录集 (MySql句柄)
.计次循环首 (取记录集行数 (子记录集句柄), )
    读字段值 (子记录集句柄, “tplj”, tp字段)
    到下一行 (子记录集句柄)
.计次循环尾 ()
局_文件名 ＝ tp字段

.判断循环首 (局_文件名 ≠ “”)
    加入成员 (局_文件名, 图形按钮.正常图片)
    局_文件名 ＝ 寻找文件 (局_文件名, )
.判断循环尾 ()
局_个数 ＝ 取数组成员数 (取记录集行数 (子记录集句柄))

重定义数组 (图形按钮, 假, 局_个数)

连续赋值 (100, 局_宽度, 局_高度)
局_行个数 ＝ 5
.计次循环首 (局_个数, 局_计次)

    复制窗口组件 (图形按钮, 图形按钮 [局_计次])

    图形按钮 [局_计次].可视 ＝ 真
    图形按钮 [局_计次].移动 (局_左边 ＋ 10, 局_顶边 ＋ 10, 局_宽度, 局_高度)
    局_左边 ＝ 局_左边 ＋ 局_宽度 ＋ 10
    .如果真 (局_计次 ％ 局_行个数 ＝ 0)
        局_左边 ＝ 0
        局_顶边 ＝ 局_顶边 ＋ 局_高度 ＋ 10
    .如果真结束

.计次循环尾 ()

airaz

取找到组件数目（ 寻找组件 (_启动窗口, “图形按钮,, , , )）  看看是不是重叠了还是没复制出来

xxz123xxz

自己解决了