這樣填數據
Set item = lv.ListItems.Add(, "" & Rs1.Fields(0).Value)
For col = 1 To Rs1.Fields.Count 1
item.SubItems(col) = "" & Rs1.Fields(col).Value
Next
Set item = lv.ListItems.Add(, "" & Rs1.Fields(0).Value)
For col = 1 To Rs1.Fields.Count 1
item.SubItems(col) = "" & Rs1.Fields(col).Value
Next
Dim lst As ListItem
Set lst = frmMain.lvwListView.ListItems.Add(intIndex, , strKey)
End Sub
以上是源代码,当调用的时候只能在第一列中显示为什么,在columnHeader中有intIndex与之对应, 为什么?
intIndex是新添item,也就是新添行的index
按照我的代碼做就可以了
Set item = lv.ListItems.Add(, "" & Rs1.Fields(0).Value)
For col = 1 To Rs1.Fields.Count-1
item.SubItems(col) = "" & Rs1.Fields(col).Value
Next
可以解释一下什么意思吗?
马上给分!
然後邊歷數據庫後面所有字段的值,並顯示到lsitview的響應subitems,subitems(x)也就是列.