简单问题,关于listview 十分钟揭贴

Question

如何把一个表中的数据在listview中显示.

Answer 1

rs关联到那个表do while not rs.eof()
Set x = ListView1.ListItems.Add()
x=rs.field(0)
x.subitems(1)=rs.field(1)
。
。
。
x.subitems(n)=rs.field(n)
rs.movenext
loop

Answer 2

Do While Not MainRec.Eof  Set TempList = ListView1.ListItems.Add()
  TempList.Caption = MainRec.Fields(0)
  For i= 1 To MainRec.Fields.Count-1
      TempList.SubItems(i) = MainRec.Fields(1)
  Next i    
  MainRec.MoveNext
Loop

Answer 3

象这样：    Dim Item As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "代码", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "真实值", ListView1.Width / 2
    
    Dim cn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset    cn.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
    cn.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from table1", cn, adOpenDynamic, adLockBatchOptimistic
    Rs.MoveFirst
    Do While Not Rs.EOF
        Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
        
        Item.ListSubItems.Add , , Trim(Rs.Fields("lname"))
        Rs.MoveNext
    Loop
    Rs.Close
    cn.Close