Question

vb 中 如何 查询到的结果 显示在'在listview控件中指定的界面上？

最近在开发一个小系统，碰到以下问题：
想将查询到的结果 显示在'在listview控件指定的界面上？
但是结果却出现问题，不知该如何解决？

谢谢！

程序
'在listview控件中显示客户信息数据
Public Sub myListView()
On Error Resume Next
Dim i As Integer, j As Long
'将查询结果显示在ListView1控件中
With ListView1
.ListItems.Clear
For i = 1 To rs.RecordCount
.ListItems.Add , , rs.Fields(0).Value
For j = 1 To rs.Fields.Count - 1
If IsNull(rs.Fields(j).Value) Then
.ListItems(i).SubItems(j) = ""
Else
.ListItems(i).SubItems(j) = rs.Fields(j).Value
End If
Next j
rs.MoveNext
Next i
End With
rs.MoveFirst
'自动设置ListView1控件各列的宽度
For i = 1 To ListView1.ColumnHeaders.Count
ListView1.ColumnHeaders(i).Width = ws.Cells(1, i).Width * 0.9
Next i
End Sub

Answer 1

问题是不是出在这句上了？
.ListItems(i).SubItems(j) = rs.Fields(j).Value
如果是的话就是数据类型不匹配。