写出一个子过程，求救，急！急！急！急！急！顶一下也有分

[kingpeacock]

If Not Rs.EOF Then
mybb = Rs.GetRows()
mybbsl = UBound(mybb, 2)
Else
mybbsl = -1
End If
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "编 号", 1200
ListView1.ColumnHeaders.Add , , "时 间", 1000
ListView1.ColumnHeaders.Add , , "领工区", 1000
ListView1.ColumnHeaders.Add , , "供电局", 1000
ListView1.ColumnHeaders.Add , , "用户名", 1000
ListView1.ColumnHeaders.Add , , "户 号", 1000
ListView1.ColumnHeaders.Add , , "表 号", 1000
ListView1.ColumnHeaders.Add , , "倍 数1", 1000
ListView1.ColumnHeaders.Add , , "倍 数2", 1000
ListView1.ColumnHeaders.Add , , "电表读数", 1000
ListView1.ColumnHeaders.Add , , "实用电数", 1000
ListView1.ColumnHeaders.Add , , "居民峰额", 1200
ListView1.ColumnHeaders.Add , , "居民尖额", 1200
ListView1.ColumnHeaders.Add , , "居民谷额", 1200
ListView1.ColumnHeaders.Add , , "居民平额", 1200
ListView1.ColumnHeaders.Add , , "非居民峰额", 1500
ListView1.ColumnHeaders.Add , , "非居民尖额", 1500
ListView1.ColumnHeaders.Add , , "非居民谷额", 1500
ListView1.ColumnHeaders.Add , , "非居民平额", 1500
ListView1.ColumnHeaders.Add , , "动力峰额", 1200
ListView1.ColumnHeaders.Add , , "动力尖额", 1200
ListView1.ColumnHeaders.Add , , "动力谷额", 1200
ListView1.ColumnHeaders.Add , , "动力平额", 1200
ListView1.ColumnHeaders.Add , , "商业峰额", 1200
ListView1.ColumnHeaders.Add , , "商业尖额", 1200
ListView1.ColumnHeaders.Add , , "商业谷额", 1200
ListView1.ColumnHeaders.Add , , "商业平额", 1200
ListView1.ColumnHeaders.Add , , "力 率", 1200
ListView1.ColumnHeaders.Add , , "违 约 金", 1200
ListView1.ColumnHeaders.Add , , "基本电费", 1200
ListView1.ColumnHeaders.Add , , "电源基金", 1200
ListView1.ColumnHeaders.Add , , "引 黄 费", 1200
ListView1.ColumnHeaders.Add , , "合计支付", 1200

[leolan]

mybb = Rs.GetRows(Rs.RecordCount)

[lpzwm]

顶：）

[FREE_ICE]

我也顶一下行不啊？-_-

[csq0516]

顶

[csdnchenxu]

ListView1.ColumnHeaders.Add 是加标题啊，如果函数不懂怎么用 可以察看msdn -vb

sList.SubItems(1) 是子项里面写入值的意思

[kingpeacock]

cqm2099(~人生小弟~) 的那一个方法不行，我试了。

[iiboy]

不是很懂意思！
頂一下吧

[羽毛之家]

对于显示查询的数据,最好用徇坏吧

[zclgod]

刚注册！！！
顶！

[fxcl2006]

顶

[aohan]

这是我提取数据库记录，填充listview的例子，你看一下或许会有一点帮助
我在设计阶段已将列头写入，所以此处不再处理

Private Sub Command1_Click()
Dim i As Long
Dim Lit As ListItem
ListView1.ListItems.Clear
Rs.Open "select * from EmpCardView order by empno", Cn, 1, 3
Do While Not Rs.EOF
Set Lit = ListView1.ListItems.Add
Lit.Text = i
Lit.SubItems(1) = Trim(Rs.Fields("empno"))
Lit.SubItems(2) = Trim(Rs.Fields("empname"))
Lit.SubItems(3) = Trim(Rs.Fields("empsex"))
Lit.SubItems(4) = Trim(Rs.Fields("cardid"))
Lit.SubItems(5) = Trim(Rs.Fields("dptno"))
Lit.SubItems(6) = Trim(Rs.Fields("dptname"))
Rs.MoveNext
Loop
Set Rs = Nothing
End Sub

[hew919]

倒了 有风来了 vb中不用这么费劲吧

[xitianjile]

既然是散分就顶一下...

[kingpeacock]

to hew919(随风倒)
我知道我很菜。
同时，我也知道用循环和过程、函数。
但就是不知道怎么写。
多谢各位的指教。

[熊孩子开学喽]

顶啦！

[laisiwei]

up

[babyzhou]

看不明白你们在写什么，就知道你们要显示数据，我认为是在网格中显示最好了

[sunxysong]

顶一下先

[starsoulxp]

使用循环。
帮你顶一下

[flyingZFX]

啊，这里人好多呀，，，这么热闹呀，