请教：d.Items转置后的两种格式窗体不能显示问题

鄂龙蒙

请教：d.Items转置后的两种格式窗体不能显示问题
下面的代码转置后可输出到工作表：
crr = Application.Transpose(Application.Transpose(d.Items))
    With Worksheets("sheet2")
        .UsedRange.Offset(2, 0).ClearContents
        .Range("a3").Resize(d.Count, 9) = crr
    End With
但不能在窗体ListView1中正常显示，
当多行数据时--数组格式为： crr(i, 1) 能显示；   当是一行数据时--数组格式为： crr(1) 出错。
请大师相帮，谢谢！

条件求和窗体显示问题.rar (19.79 KB, 下载次数: 45)

2015-8-23 19:15 上传

点击文件名下载附件

huang1314wei

你的代码当中d.items是一个一维数组，如果只有一行数据符合要求，d.items就只有一个元素，这个元素是个一维数组，一维数组经过两次转置之后还是一维数组
而当有两行或者两行以上数据符合要求时，d.items是一个一维数组，但是里面的元素就不只一个了，有两个或者两个以上元素，每一个元素是一个一维数组，这样的一维数组，经过两次转置之后就变成二维数组了
为了方便你理解，举个例子你看一下

1. Sub text()
   
2.     Dim arr, brr
   
3.     arr = Array(Array("1", "2", "3"), Array("4", "5", "6"))
   
4.     brr = Application.Transpose(Application.Transpose(arr))
   
5. '    MsgBox brr(1)  '错误，不能输出结果,下标越界
   
6.     MsgBox brr(1, 2) '正确，输出结果为2
   
7. End Sub

复制代码

鄂龙蒙

huang1314wei 发表于 2015-8-23 21:30
你的代码当中d.items是一个一维数组，如果只有一行数据符合要求，d.items就只有一个元素，这个元素是个一维 ...

谢谢您！

有什么办法解决这个问题。谢谢！

wj2368

鄂龙蒙 发表于 2015-8-23 21:38
谢谢您！

有什么办法解决这个问题。谢谢！

。。。。。。。。。。。。。。

wj2368

鄂龙蒙 发表于 2015-8-23 21:38
谢谢您！

有什么办法解决这个问题。谢谢！

判断一下是不是一维数组

02761752696

谢谢   分享