就像在"我的电脑"上点右键->搜索->跟搜索结果栏里面的控件一样.
以前用过,现在忘了。

解决方案 »

  1.   

    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
            Combo1.AddItem Rs.Fields
            Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
            
            Item.ListSubItems.Add , , Trim(Rs.Fields("lname"))
            Rs.MoveNext
        Loop
        Rs.Close
        CN.Close