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