listbox当只有一行多列数据时，不能正确显示数据，如何解决

天下无双01

正常的显示是这样的，如图：

但是当数据以后一条时，就会这样：

我的代码是这样的：
Private Sub ComboBox1_Change()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String, arr
On Error Resume Next
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
If VBA.Len(ComboBox1.Value) <> 0 Then
sql = "select  产品名称,统一售价,代码 from [产品设置$] where 类别 = '" & ComboBox1.Value & "'"
ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = 135 & ";" & 75 & ";" & 75 & ""
arr = cnn.Execute(sql).GetRows
ListBox1.List = WorksheetFunction.Transpose(arr)
cnn.Close
Set cnn = Nothing
End If
End Sub

天下无双01

当只有一条数据时，出现listbox中纵向排列的情况，是不是因为
ListBox1.List = WorksheetFunction.Transpose(arr)的缘故？

天下无双01

Private Sub TextBox1_Change()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String, arr
On Error Resume Next
If VBA.Len(TextBox1.Value) > 0 Then
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sql = "select distinct 产品名称,统一售价,代码 from [产品设置$] where 产品名称 like '%" & TextBox1.Value & "%'"
ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = 135 & ";" & 75 & ";" & 75 & ""
arr = cnn.Execute(sql).GetRows
ListBox1.List = WorksheetFunction.Transpose(arr)
cnn.Close
Set cnn = Nothing
arr = ""
End If
End Sub

zhangwg0604

我也想知道这是为什么？我现在开发的一个listbox显示明细也是这样。
明细大于2条时正常，只有一条时就是纵向

taller

zhangwg0604

还是一样的效果，没有改变。（这个明细源数据第一行是表头，第二行是数据）
明细大于2条时正常，只有一条时（只有表头时）就是纵向

ivccav

没有附件，也懒得帮你模拟了。很可能是只有一行数据时转置函数引起的。你不要转置，直接将arr赋值，listbox1.column=arr，试试效果如何。
https://club.excelhome.net/forum.php?mod=viewthread&tid=1451605