怎么增加列,怎么隐藏显示列头,怎么赋值,怎么在里面加入可编辑框,怎么 在里面加入Combox,等等,反正很基本的,哪位大侠有闲功夫,谢几句话我看看,谢谢了

解决方案 »

  1.   

    Dim Item As ListItem
        ListView1.View = lvwReport
        ListView1.CheckBoxes = True
        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
      

  2.   

    怎么在里面加入可编辑框,怎么 在里面加入Combox,等等,反正很基本的 大哥,那还是最基本的??哈哈哈,不是吧,加入Combox 和 TextBox可是要和TextBox、Combox 配合使用的呢,
    思路:用ListView的Top left 配合 ListItem的Height 、Width 来控制 TextBox的Move