Question

在易语言中怎样把查询结果在超级列表框中显示出来？

在一个窗口中有两个超级抵列表框，在上面的超级列表框中单击一下，得到一个被选中项，然后利用这个被选中项在数据库中查询，并在下面的超级列表框中显示出来，现在的状态就是无法在把查询到的结果正确的显示，那样老师能够帮忙一下，不胜感谢！

.版本 2.支持库 iext.支持库 spec
.子程序 _超级列表框销售订单_左键单击表项.局部变量 选中项, 文本型.局部变量 记录, 整数型
.如果真 (超级列表框销售订单.现行选中项 ≠ -1) 选中项 ＝ 超级列表框销售订单.取标题 (超级列表框销售订单.现行选中项, 0)
超级列表框销售分类.全部删除 () 全局数据库.到首记录 (记录) 记录 ＝ 全局数据库.查询 (“select * from 销售订单详情 where 系统单号=” ＋ 选中项) 调试输出 (选中项) ' 这里能够正确显示选中项系统单号是A001，但是无法在下面的超级列表框中显示查询到的数据 .判断循环首 (全局数据库.尾记录后 (记录) ＝ 假) 超级列表框销售分类.插入表项 (, 数值到格式文本 (全局数据库.读 (记录, 1), , 假), , , , ) 超级列表框销售分类.置标题 (超级列表框销售分类.取表项数 () － 1, 1, 到文本 (全局数据库.读 (记录, 2))) 超级列表框销售分类.置标题 (超级列表框销售分类.取表项数 () － 1, 2, 到文本 (全局数据库.读 (记录, 3))) 超级列表框销售分类.置标题 (超级列表框销售分类.取表项数 () － 1, 3, 到文本 (全局数据库.读 (记录, 4))) 全局数据库.到后一记录 (记录) .判断循环尾 () 全局数据库.关闭记录集 (记录)





Answer 1

记录 ＝ 全局数据库.查询 (“select * from 销售订单详情 where 系统单号=” ＋ 选中项)
调试输出 (选中项) ' 这里能够正确显示选中项系统单号是A001，但是无法在下面的超级列表框中显示查询到的数据

能正确显示A001·并不代表你查到了最终结果，建议你单独调试输出 全局数据库.读 (记录, 1) 全局数据库.读 (记录, 2) 3 4 看下是否 有记录。

还有这里

超级列表框销售分类.插入表项 (, 数值到格式文本 (全局数据库.读 (记录, 1), , 假), , , , )
超级列表框销售分类.置标题 (超级列表框销售分类.取表项数 () － 1, 1, 到文本 (全局数据库.读 (记录, 2)))
超级列表框销售分类.置标题 (超级列表框销售分类.取表项数 () － 1, 2, 到文本 (全局数据库.读 (记录, 3)))
超级列表框销售分类.置标题 (超级列表框销售分类.取表项数 () － 1, 3, 到文本 (全局数据库.读 (记录, 4)))

要换成这样比较好

表项=超级列表框销售分类.插入表项 (, 数值到格式文本 (全局数据库.读 (记录, 1), , 假), , , , )
超级列表框销售分类.置标题 (表项, 1, 到文本 (全局数据库.读 (记录, 2)))
超级列表框销售分类.置标题 (表项, 2, 到文本 (全局数据库.读 (记录, 3)))
超级列表框销售分类.置标题 (表项, 3, 到文本 (全局数据库.读 (记录, 4)))

试试看，如果不行 私信我···

追问

谢谢您的提醒，现在的问题就是：如果把access的系统单号字体名称改为数字的话就可以正确显示，如果是文本就无法显示，并且调试输出 (全局数据库.读 (记录, 1))，结果是空，真的不知道是什么原因。还有一个问题就是，如果把插入表项的数值到格式文本改成到文本则提示错误(39): 为某支持库命令提供了过多的参数。求解！

追答

第一个问题，再次建议你逐步排查问题所在，无法正确显示查询结果，那么就直接用一条SQL语句去查询。例如：记录 ＝ 全局数据库.查询 (“select * from 销售订单详情 where 系统单号= ‘A001’")
再去确认记录变量是否有数据。

另外ACCESS数据库同MSSQL MYSQL等数据库 使用文本格式时 必须有‘’引号，否则都是数字格式。

不知道你为什么要使用数值到格式文本，直接将查询的数据到文本就可以，提示过多的参数一定是格式问题了，
我猜你是不是这样？

超级列表框销售分类.插入表项 (,到文本 (全局数据库.读 (记录, 1), , 假), , , , )

这样肯定是过多参数了，正确的到文本应该是
超级列表框销售分类.插入表项 (,到文本 (全局数据库.读 (记录, 1)), , , , )

如果还不行，可否将你的代码和ACCESS数据库传给我，帮你研究一下

追问

记录 ＝ 全局数据库.查询 (“select * from 收货详情 where 序号='” ＋ 选中项 ＋ “'”)
谢谢您的提醒，把代码改成这一行，一切都OK了，正如您说，是没有正确用引号。还有就是数值到格式文本这个其实也是一个错误，这是我把别人的代码复制过来的，应该根据自己所需再来修改一下，今天又进步了！