這樣填數據
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

解决方案 »

  1.   

    Public Sub ListRecord(ByVal intIndex As Integer, ByVal strKey As String)
    Dim lst As ListItem
    Set lst = frmMain.lvwListView.ListItems.Add(intIndex, , strKey)
    End Sub
    以上是源代码,当调用的时候只能在第一列中显示为什么,在columnHeader中有intIndex与之对应, 为什么?
      

  2.   

    add的時候隻可以給第一列賦值
    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 
      

  3.   

    to hnlzh:
    可以解释一下什么意思吗?
    马上给分!
      

  4.   

    Rs1是一個ado記錄集合,我在set item=....這句賦予這個新item的text為數據庫第一個字段的值,
    然後邊歷數據庫後面所有字段的值,並顯示到lsitview的響應subitems,subitems(x)也就是列.