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

Question

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

Answer 1

For i = 0 To mybbsl
        Set sList = ListView1.ListItems.Add(, "A" & mybb(34, i), Trim(mybb(0, i)))
                    sList.SubItems(1) = Trim(mybb(1, i))
                    sList.SubItems(2) = Trim(mybb(2, i))
                    sList.SubItems(3) = Trim(mybb(3, i))
                    sList.SubItems(4) = Trim(mybb(4, i))
                    sList.SubItems(5) = Trim(mybb(5, i))
                    sList.SubItems(6) = Trim(mybb(6, i))
                    sList.SubItems(7) = Trim(mybb(7, i))
                    sList.SubItems(8) = Trim(mybb(8, i))
                    sList.SubItems(9) = Trim(mybb(9, i))
                    sList.SubItems(10) = Trim(mybb(10, i))
                    sList.SubItems(11) = Trim(mybb(11, i))
                    sList.SubItems(12) = Trim(mybb(12, i))
                    sList.SubItems(13) = Trim(mybb(13, i))
                    sList.SubItems(14) = Trim(mybb(14, i))
                    sList.SubItems(15) = Trim(mybb(15, i))
                    sList.SubItems(16) = Trim(mybb(16, i))
                    sList.SubItems(17) = Trim(mybb(17, i))
                    sList.SubItems(18) = Trim(mybb(18, i))
                    sList.SubItems(19) = Trim(mybb(19, i))
                    sList.SubItems(20) = Trim(mybb(20, i))
                    sList.SubItems(21) = Trim(mybb(21, i))
                    sList.SubItems(22) = Trim(mybb(22, i))
                    sList.SubItems(23) = Trim(mybb(23, i))
                    sList.SubItems(24) = Trim(mybb(24, i))
                    sList.SubItems(25) = Trim(mybb(25, i))
                    sList.SubItems(26) = Trim(mybb(26, i))
                    sList.SubItems(27) = Trim(mybb(27, i))
                    sList.SubItems(28) = Trim(mybb(28, i))
                    sList.SubItems(29) = Trim(mybb(29, i))
                    sList.SubItems(30) = Trim(mybb(30, i))
                    sList.SubItems(31) = Trim(mybb(31, i))
                    sList.SubItems(32) = Trim(mybb(32, i))
                    sList.SubItems(33) = Trim(mybb(33, i))
                    sList.SubItems(34) = Trim(mybb(34, i))
             Next
    

Answer 2

向ListView控件增加列标题，同时是将查询结果在ListView中显示出来。

Answer 3

mybb = Rs.GetRows(Rs.RecordCount)

Answer 4

function InitialHead()      
            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
end function
在form-load中调用 InitialHead
'读数据dim i as interger
dim item as Listitem
    listview1.listitem.clear
while not rs.eof
    set item=ListView1.ListItems.Add(, "A" & mybb(34, i), Trim(mybb(0, i)))
    for i=1 to rs.fields.count
           item.subitem(i)=rs.field(i)
    next i
    rs.movenext
wend 

Answer 5

有创意!~
代码好长,,写成过程是最好的!可以重复调用..
Sub ListView()
End Sub
直接调用ListView就OK,实现过程功能..

Answer 6

有一点错误，因为是贴楼主的代码改的，有个变量没有换
dim i as interger
dim item as Listitem
    listview1.listitem.clear
while not rs.eof
    set item=ListView1.ListItems.Add(, "A" & Rs.field(34), Trim(rs.field(0))
    for i=1 to rs.fields.count
           item.subitem(i)=rs.field(i)
    next i
    rs.movenext
wend 

Answer 7

http://community.csdn.net/Expert/topic/3201/3201089.xml?temp=.3538324
http://community.csdn.net/Expert/topic/3220/3220590.xml?temp=9.537905E-02有兴趣的话，到这两个问题上看一看，也是散分吧。
反正，也没有人回答，进了也看看吧。也是关于两个控件的问题。

Answer 8

ListView1.ColumnHeaders.Add 是加标题啊，如果函数不懂怎么用 可以察看msdn -vbsList.SubItems(1) 是子项里面写入值的意思

Answer 9

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

Answer 10

这是我提取数据库记录，填充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

Answer 11

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