我有一个数据库表!rs,为
姓名 性别 年级 分数
小化  男   1   45
小红   女  3    67
小李   男  1    86
小许   男  3    86
小杨   男  6    86
小陈   男  8    56
小许   男  6    99
小许   男  8    56
小许   男  3    86
我想用一个listview和一个combo控件将他们显示出来怎么写代码?combo的内容是年级!
也就是同年级一起显示!最好也能全部显示一次所有的!
怎么做?
急在线等

解决方案 »

  1.   

    可以啊!!!!To:[email protected]
    俺写一个给你。
      

  2.   

    '获得数据,返回数组
    Function get年级() As Integer()    
        Dim value() As Integer
        Dim i As Integer
        Dim cnn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim selStr As String
        selStr = "select 年级 from 表"
        cnn.Open "数据库驱动"
        rs.Open selStr, cnn, adOpenStatic, adLockReadOnly
        ReDim value(rs.RecordCount)
        i = 0
        Do While Not rs.EOF
            value(i) = rs!年级
            i = i + 1
            rs.MoveNext
        Loop
        rs.Close
        cnn.Close
        get年级 = value
    End Function'combobox添加数据
    for i=0 to rs.recordcount-1
      combobox.additems value(i),i
    next i
      

  3.   

    我想知道from_load()的完全代码?包括listview_click的所有代码?