仿数据库cha询不同表获取字段和值循环疑问

星见雅 · 发表于 3 天前

功能设想：根据组合框选择内容cha询不同的表，并将字段和值动态填充到超级列表框内
目前问题：字段加载成功，但是值只加载了最后一行
猜想：循环逻辑的问题？大佬们求助orz代码：

窗口程序集名	保留	保留	备注
窗口程序集_窗口2

子程序名	返回值类型	公开	备注
_窗口2_创建完毕

_启动窗口.可视＝假

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
表字段记录集句柄	整数型
表值记录集句柄	整数型
表字段	文本型
表值	文本型
表字段记录集行数	整数型
表值记录集行数	整数型
表字段计次	整数型
表值计次	整数型

如果 (执行SQL语句 (MySql句柄, “DESCRIBE ” ＋组合框1.内容) ＝真) ' 表字段cha询

表字段记录集句柄＝取记录集 (MySql句柄)

表字段记录集行数＝取记录集行数 (表字段记录集句柄)

如果 (执行SQL语句 (MySql句柄, “SELECT * FROM ” ＋组合框1.内容) ＝真) ' 表值获取

表值记录集句柄＝取记录集 (MySql句柄)

表值记录集行数＝取记录集行数 (表值记录集句柄)

信息框 (“SELECT * FROM ” ＋组合框1.内容＋ “执行失败”, 0, , )

计次循环首 (表字段记录集行数, 表字段计次) ' 按行数循环获取表字段并插入列

读字段值 (表字段记录集句柄, “Field”, 表字段)

超级列表框1.插入列 (, 表字段, , , , )

计次循环首 (表值记录集行数, 表值计次) ' 按行数循环获取表值并插入列

读字段值 (表值记录集句柄, 表字段, 表值)

如果真 (超级列表框1.取表项数 () ≠ 表值记录集行数)

超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 超级列表框1.取列数 () － 1, 表值)

到下一行 (表值记录集句柄)

计次循环尾 ()

到下一行 (表字段记录集句柄)

计次循环尾 ()

信息框 (“DESCRIBE ” ＋组合框1.内容＋ “执行失败”, 0, , )
释放记录集 (表字段记录集句柄)
释放记录集 (表值记录集句柄)

子程序名	返回值类型	公开	备注
_窗口2_将被销毁

断开MySql (MySql句柄)
_启动窗口.销毁 ()

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

.版本 2<br />
.支持库 mysql<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_窗口2<br />
<br />
.子程序 _窗口2_创建完毕<br />
<br />
_启动窗口.可视 ＝ 假<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 表字段记录集句柄, 整数型<br />
.局部变量 表值记录集句柄, 整数型<br />
.局部变量 表字段, 文本型<br />
.局部变量 表值, 文本型<br />
.局部变量 表字段记录集行数, 整数型<br />
.局部变量 表值记录集行数, 整数型<br />
.局部变量 表字段计次, 整数型<br />
.局部变量 表值计次, 整数型<br />
<br />
<br />
.如果 (执行SQL语句 (MySql句柄, “DESCRIBE ” ＋ 组合框1.内容) ＝ 真)  ' 表字段cha询<br />
    表字段记录集句柄 ＝ 取记录集 (MySql句柄)<br />
    表字段记录集行数 ＝ 取记录集行数 (表字段记录集句柄)<br />
<br />
    .如果 (执行SQL语句 (MySql句柄, “SELECT * FROM ” ＋ 组合框1.内容) ＝ 真)  ' 表值获取<br />
        表值记录集句柄 ＝ 取记录集 (MySql句柄)<br />
        表值记录集行数 ＝ 取记录集行数 (表值记录集句柄)<br />
    .否则<br />
        信息框 (“SELECT * FROM ” ＋ 组合框1.内容 ＋ “执行失败”, 0, , )<br />
    .如果结束<br />
<br />
    .计次循环首 (表字段记录集行数, 表字段计次)  ' 按行数循环获取表字段并插入列<br />
        读字段值 (表字段记录集句柄, “Field”, 表字段)<br />
        超级列表框1.插入列 (, 表字段, , , , )<br />
<br />
        .计次循环首 (表值记录集行数, 表值计次)  ' 按行数循环获取表值并插入列<br />
            读字段值 (表值记录集句柄, 表字段, 表值)<br />
            .如果真 (超级列表框1.取表项数 () ≠ 表值记录集行数)<br />
                超级列表框1.插入表项 (, , , , , )<br />
            .如果真结束<br />
            超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 超级列表框1.取列数 () － 1, 表值)<br />
            到下一行 (表值记录集句柄)<br />
        .计次循环尾 ()<br />
<br />
        到下一行 (表字段记录集句柄)<br />
    .计次循环尾 ()<br />
.否则<br />
    信息框 (“DESCRIBE ” ＋ 组合框1.内容 ＋ “执行失败”, 0, , )<br />
.如果结束<br />
释放记录集 (表字段记录集句柄)<br />
释放记录集 (表值记录集句柄)<br />
<br />
<br />
.子程序 _窗口2_将被销毁<br />
<br />
断开MySql (MySql句柄)<br />
_启动窗口.销毁 ()