Listbox运行错误381，无法设置List属性。属性阵列索引无效

looselace

各位大神，文件如下，调了白天，总是报错，麻烦检查下原因，谢谢。~~~~

在线等~~~~~

ivccav

用additem赋值是只能10列，但使用ListBox1.List = arr一次性赋值，没有列数限制。因此你可以把查询结果先保存在另一个数组中，最后一次性赋值，效率还比additem一个个赋值快。

最好用column属性赋值，方便保存结果。可参考我帖子7楼的代码，以下是代码片段：

https://club.excelhome.net/forum.php?mod=viewthread&tid=1451605&extra=

        Listbox1.Clear
        For i = 2 To UBound(arr)
            s = arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5)
            If InStr(s, t) Then
                ReDim Preserve brr(1 To UBound(arr, 2), 1 To UBound(brr, 2) + 1)
                u = UBound(brr, 2)
                For j = 1 To UBound(arr, 2) '想显示几列就赋值几列
                    brr(j, u) = arr(i, j)
                Next
            End If
        Next
        Listbox1.Column = brr '用Column属性赋值无需转置数组

yylucke

ListBox控件最多能容纳10列。

looselace

原来如此，搞了半天，谢谢啊~~~

looselace

yylucke 发表于 2023-3-21 16:27
ListBox控件最多能容纳10列。

可是，ListBox2有16项，怎么回事？不是成功出来了么？

looselace

Excel帮助有提到，最多10列：将 ColumnCo unt 设为 0，则显示第 0 列；设为 -1，将显示所有列。对于未绑定的数据源，最大列数为 10（第 0 列至第 9 列）。

looselace

ivccav 发表于 2023-3-21 19:36
用additem赋值是只能10列，但使用ListBox1.List = arr一次性赋值，没有列数限制。因此你可以把查询结果先保 ...

感谢，好好研究下，~~~~~~~~~~~~~~~~~~