关于点击刷新按钮时，会先执行其他子程序内的代码

woshikbc

.版本 2

.子程序 _按钮_刷新_被单击

读取到超级列表框 ()


.版本 2
.支持库 iext

.子程序 _编辑框1_模糊cha询_内容被改变
.局部变量 py, 文本型
.局部变量 首字母, 文本型

py ＝ 编辑框1_模糊cha询.内容
.判断开始 (编辑框1_模糊cha询.内容 ≠ “”)
    sql ＝ “select * from Member_info where 首字母&手机&姓名 like '%” ＋ py ＋ “%' ”
    .如果真 (数.执行 (sql, ) ＝ 假)
        信息框 (“cha询数据库失败”, #错误图标, , )
        返回 ()
    .如果真结束
    读取到超级列表框 (sql)
    ' cha询状态.标题 ＝ “cha询到” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条数据”
    .判断开始 (超级列表框1.取表项数 () ＝ 0)
        cha询状态.文本颜色 ＝ #红色
        cha询状态.标题 ＝ “未cha询到相关数据，请确认！正在刷新数据...”
        读取到超级列表框 ()
        cha询状态.文本颜色 ＝ #墨绿
        cha询状态.标题 ＝ “刷新成功！”
    .默认
        cha询状态.标题 ＝ “cha询到” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条数据”
    .判断结束

.默认
    状态条1.置文本 (1, “消息：” ＋ “刷新数据成功！”)

为什么执行_按钮_刷新_被单击 这个子程序时，会先执行

.判断开始 (超级列表框1.取表项数 () ＝ 0)
        cha询状态.文本颜色 ＝ #红色
        cha询状态.标题 ＝ “未cha询到相关数据，请确认！正在刷新数据...”
        读取到超级列表框 ()
        cha询状态.文本颜色 ＝ #墨绿
        cha询状态.标题 ＝ “刷新成功！”
    .默认
        cha询状态.标题 ＝ “cha询到” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条数据”
    .判断结束

这个代码，这是怎么回事？

chaoup

按钮被单击 执行 读取到超级列表框 () 这个子程序，你这个子程序呢？

woshikbc

chaoup 发表于 2023-9-4 17:42
按钮被单击 执行 读取到超级列表框 () 这个子程序，你这个子程序呢？

.版本 2
.支持库 iext

.子程序 读取到超级列表框, , 公开
.参数 sql文本, 文本型, 可空

超级列表框1.全部删除 ()
.如果 (sql文本 ＝ “”)
    sql ＝ “select * from Member_info order by 卡号+0”
.否则
    sql ＝ sql文本
.如果结束
cha询句柄 ＝ 数.cha询 (sql)
.判断循环首 (数.首记录前 (cha询句柄) ＝ 假 且 数.尾记录后 (cha询句柄) ＝ 假)
    表项句柄 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (表项句柄, 0, 到文本 (数.读 (cha询句柄, “卡号”)))
    超级列表框1.置标题 (表项句柄, 1, 数.读 (cha询句柄, “姓名”))
    超级列表框1.置标题 (表项句柄, 2, 数.读 (cha询句柄, “性别”))
    超级列表框1.置标题 (表项句柄, 3, 到文本 (数.读 (cha询句柄, “手机”)))
    超级列表框1.置标题 (表项句柄, 4, 数.读 (cha询句柄, “住址”))
    超级列表框1.置标题 (表项句柄, 5, 到文本 (到整数 (数.读 (cha询句柄, “金额”))))
    超级列表框1.置标题 (表项句柄, 6, 数.读 (cha询句柄, “会员类型”))
    超级列表框1.置标题 (表项句柄, 7, 到文本 (数.读 (cha询句柄, “消费次数”)))
    超级列表框1.置标题 (表项句柄, 8, 时间_格式化EX (数.读 (cha询句柄, “开卡日期”), , , 2))
    超级列表框1.置标题 (表项句柄, 9, 数.读 (cha询句柄, “备注”))
    超级列表框1.置标题 (表项句柄, 10, 到文本 (数.读 (cha询句柄, “年卡鞋数”)))
    超级列表框1.置标题 (表项句柄, 11, 到文本 (数.读 (cha询句柄, “年卡到期时间”)))

    数.到后一记录 (cha询句柄)
.判断循环尾 ()
cha询状态.标题 ＝ “cha询到” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条数据”
状态条1.置文本 (2, “当前人数：” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “ ” ＋ “人”)
状态条1.置文本 (1, “消息：” ＋ “数据刷新成功！”)
状态条1.置文本 (4, “版本：” ＋ #版本)
数.关闭记录集 (cha询句柄)

圆圈

太乱了，源码发出来

Suky

问题描述不清，代码不完整     盲猜困难

woshikbc

圆圈 发表于 2023-9-4 19:33
太乱了，源码发出来

源码更乱，而且又多怎么发啊