listview报错380ListView1.ListItems.Item(m).SubItems(n) = rs.Fields(n).Value
Private Sub FILL_ListView()Connect
ListView1.ListItems.Clear
Dim n, m, ct As Integer
Dim sql As String
sql = "select * from ygb order by bh"
rs.Open sql, cn
ct = rs.Fields.Count - 1
If rs.BOF = False Then
rs.MoveFirst
m = 1
While rs.EOF = False
ListView1.ListItems.Add
ListView1.ListItems.Item(m) = rs.Fields(0).Value
For n = 1 To ct
If Not IsNull(rs.Fields(n).Value) Then
ListView1.ListItems.Item(m).SubItems(n) = rs.Fields(n).Value“这里报错380无效属性值”
End If
Next n
m = m + 1
rs.MoveNext
Wend
End If
rs.Close
DisConnect
求帮助!!急!!急!急!!谢谢了... --------------------编程问答-------------------- rs.Fields(n).Value
打印出来看看是不是NULL
ListView1.ListItems.Item(m).SubItems(n)
要确定数目 --------------------编程问答-------------------- 不要急,调试一下不就得了 --------------------编程问答-------------------- F8用试试
补充:VB , 数据库(包含打印,安装,报表)