虚表求助：希望有会虚表的老师帮忙修改成正确的用法

后来故事怎么了

  

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

虚表.创建 (_启动窗口.取窗口句柄 (), 50, 50, 1000, 1000, 真, 真, 0, )

子程序名	返回值类型	公开	备 注
SQLServer_cha询_虚表	逻辑型
参数名	类 型	参考	可空	数组	备 注
数据库连接	数据库连接
记录集	记录集
SQL语句	文本型

变量名	类 型	静态	数组	备 注
字段总数	整数型
错误信息	文本型
操作状态	逻辑型
xx	整数型
行	整数型
列	整数型
临时字段值	文本型

' 执行SQLcha询
如果 (数据库连接.是否已连接)
操作状态 ＝ 记录集.打开 (SQL语句, #SQL语句, )
如果真 (操作状态 ＝ 假)
错误信息 ＝ “记录集打开失败”
信息框 (错误信息, #错误图标, “记录集操作异常”, )
记录集.关闭 ()
返回 (假)

错误信息 ＝ “数据库连接失败或未启用连接”
信息框 (错误信息, 0 ＋ #错误图标, “数据库连接错误”, )
返回 (假)

' 获取字段结构
字段总数 ＝ 记录集.字段数量
如果真 (字段总数 ≤ 0)
信息框 (“cha询结果无有效字段”, #错误图标, “数据结构异常”, )
记录集.关闭 ()
返回 (假)

' ==== 关键修改1：使用一维数组存储数据 ====
' 计算总数据量 = 记录数 × 字段数
记录集.到尾记录 ()
记录数 ＝ 记录集.记录数量
记录集.到首记录 ()
' 重定义一维数组存储所有数据
重定义数组 (集_虚表数据, 假, 记录数 × 字段总数)  ' 修改为1维数组
' ==== 关键修改2：数据存储到一维数组 ====
行 ＝ 0
判断循环首 (记录集.尾记录后 ＝ 假)
行 ＝ 行 ＋ 1
计次循环首 (字段总数, 列)
如果 (记录集.字段是否为空 (列 － 1))
临时字段值 ＝ “”
记录集.读文本 (列 － 1, 临时字段值)
' 修正4: 处理数值类型字段
判断 (记录集.取字段类型 (列 － 1) ＝ 131)  ' 131=数值类型
临时字段值 ＝ 到文本 (到数值 (临时字段值))




' 计算一维数组位置：(当前行-1)*总列数 + (当前列-1)
集_虚表数据 [ (行 － 1) × 字段总数 ＋ 列] ＝ 临时字段值  ' 存储到一维数组
计次循环尾 ()
如果真 (记录集.到下一条 () ＝ 假)
跳出循环 ()

判断循环尾 ()
虚表.全部删除 ()
' 插入列头
计次循环首 (字段总数, xx)
虚表.插入列 (-1, 记录集.取字段名 (xx － 1), 100, , , )
计次循环尾 ()
' 设置虚表数据
虚表.置表项数 (记录数)
虚表.事件_填充表项 (&虚表_填充回调)
' 保存字段总数用于回调
集_虚表字段数 ＝ 字段总数  ' 全局/程序集变量
' 清理资源
记录集.关闭 ()
返回 (真)
' ==== 关键修改3：回调函数使用一维数组 ====

子程序名	返回值类型	公开	备 注
虚表_填充回调
参数名	类 型	参考	可空	数组	备 注
项目指针	整数型
标题指针	整数型

变量名	类 型	静态	数组	备 注
局_项目	超级列表框项目
行索引	整数型
列索引	整数型
数组位置	整数型

局_项目 ＝ 指针到列表框项目 (项目指针)
行索引 ＝ 局_项目.表项索引  ' 0-based行索引
列索引 ＝ 局_项目.子项索引  ' 0-based列索引
' 计算一维数组中的位置：行索引*总列数 + 列索引
数组位置 ＝ 行索引 × 集_虚表字段数 ＋ 列索引 ＋ 1  ' +1因易语言数组从1开始
' 安全检查数组边界
如果真 (数组位置 ≤ 取数组下标 (集_虚表数据, ))
' 将内容写入虚表内存
写到内存 (集_虚表数据 [数组位置], 局_项目.项目文本指针, )

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 虚表.创建 (_启动窗口.取窗口句柄 (), 50, 50, 1000, 1000, 真, 真, 0, )<br /> <br /> .子程序 SQLServer_cha询_虚表, 逻辑型, 公开<br /> .参数 数据库连接, 数据库连接<br /> .参数 记录集, 记录集<br /> .参数 SQL语句, 文本型<br /> .局部变量 字段总数, 整数型<br /> .局部变量 错误信息, 文本型<br /> .局部变量 操作状态, 逻辑型<br /> .局部变量 xx, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> .局部变量 临时字段值, 文本型<br /> <br /> ' 执行SQLcha询<br /> .如果 (数据库连接.是否已连接)<br />     操作状态 ＝ 记录集.打开 (SQL语句, #SQL语句, )<br />     .如果真 (操作状态 ＝ 假)<br />         错误信息 ＝ “记录集打开失败”<br />         信息框 (错误信息, #错误图标, “记录集操作异常”, )<br />         记录集.关闭 ()<br />         返回 (假)<br />     .如果真结束<br /> <br /> .否则<br />     错误信息 ＝ “数据库连接失败或未启用连接”<br />     信息框 (错误信息, 0 ＋ #错误图标, “数据库连接错误”, )<br />     返回 (假)<br /> .如果结束<br /> <br /> ' 获取字段结构<br /> 字段总数 ＝ 记录集.字段数量<br /> .如果真 (字段总数 ≤ 0)<br />     信息框 (“cha询结果无有效字段”, #错误图标, “数据结构异常”, )<br />     记录集.关闭 ()<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' ==== 关键修改1：使用一维数组存储数据 ====<br /> ' 计算总数据量 = 记录数 × 字段数<br /> 记录集.到尾记录 ()<br /> 记录数 ＝ 记录集.记录数量<br /> 记录集.到首记录 ()<br /> <br /> ' 重定义一维数组存储所有数据<br /> 重定义数组 (集_虚表数据, 假, 记录数 × 字段总数)  ' 修改为1维数组<br /> <br /> ' ==== 关键修改2：数据存储到一维数组 ====<br /> 行 ＝ 0<br /> .判断循环首 (记录集.尾记录后 ＝ 假)<br />     行 ＝ 行 ＋ 1<br /> <br />     .计次循环首 (字段总数, 列)<br />         .如果 (记录集.字段是否为空 (列 － 1))<br />             临时字段值 ＝ “”<br />         .否则<br />             记录集.读文本 (列 － 1, 临时字段值)<br />             ' 修正4: 处理数值类型字段<br />             .判断开始 (记录集.取字段类型 (列 － 1) ＝ 131)  ' 131=数值类型<br />                 临时字段值 ＝ 到文本 (到数值 (临时字段值))<br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果结束<br /> <br />         ' 计算一维数组位置：(当前行-1)*总列数 + (当前列-1)<br />         集_虚表数据 [(行 － 1) × 字段总数 ＋ 列] ＝ 临时字段值  ' 存储到一维数组<br />     .计次循环尾 ()<br /> <br />     .如果真 (记录集.到下一条 () ＝ 假)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> 虚表.全部删除 ()<br /> <br /> ' 插入列头<br /> .计次循环首 (字段总数, xx)<br />     虚表.插入列 (-1, 记录集.取字段名 (xx － 1), 100, , , )<br /> .计次循环尾 ()<br /> <br /> ' 设置虚表数据<br /> 虚表.置表项数 (记录数)<br /> 虚表.事件_填充表项 (&虚表_填充回调)<br /> <br /> <br /> ' 保存字段总数用于回调<br /> 集_虚表字段数 ＝ 字段总数  ' 全局/程序集变量<br /> <br /> ' 清理资源<br /> 记录集.关闭 ()<br /> 返回 (真)<br /> <br /> ' ==== 关键修改3：回调函数使用一维数组 ====<br /> <br /> .子程序 虚表_填充回调<br /> .参数 项目指针, 整数型<br /> .参数 标题指针, 整数型<br /> .局部变量 局_项目, 超级列表框项目<br /> .局部变量 行索引, 整数型<br /> .局部变量 列索引, 整数型<br /> .局部变量 数组位置, 整数型<br /> <br /> 局_项目 ＝ 指针到列表框项目 (项目指针)<br /> 行索引 ＝ 局_项目.表项索引  ' 0-based行索引<br /> 列索引 ＝ 局_项目.子项索引  ' 0-based列索引<br /> <br /> ' 计算一维数组中的位置：行索引*总列数 + 列索引<br /> 数组位置 ＝ 行索引 × 集_虚表字段数 ＋ 列索引 ＋ 1  ' +1因易语言数组从1开始<br /> <br /> ' 安全检查数组边界<br /> .如果真 (数组位置 ≤ 取数组下标 (集_虚表数据, ))<br />     ' 将内容写入虚表内存<br />     写到内存 (集_虚表数据 [数组位置], 局_项目.项目文本指针, )<br /> .如果真结束