VB LISTVIEW 动态加载数据

2010-08-06 10:18:35 299 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb动态加载控件 Option Explicit Dim con As New ADODB.Connection Dim res As New ADODB.Recordset Dim moveX As Long '动态添加控件时控件移到X点 Dim moveY As Long '动态添加控件时控件移到Y点 Const mWidth = 1500 Const ConCount = 4 '表中查询条件的数量阅读详情

表1:
ID-------代码--------用量
1--------101----------1
1--------201----------5
1--------301----------4
4--------101----------6
5--------401----------20
5--------501----------8
9--------101----------3
9--------201----------5
9--------301----------28
9--------401----------1
9--------501----------2

表2
代码----------名称
101-----------花
201-----------虫
301-----------蟹
401-----------虾
501-----------鱼

LISTVIEW 最终显示为
ID-----------101花-----201虫------301蟹--------401虾--------501鱼
1------------1----------5----------4------------无------------无
4------------6---------无----------无-----------无------------无
5------------无--------无----------无-----------20------------8
9------------3---------5------------28----------1-------------2

怎么用VB LISTVIEW 将数据读出来

这个应该是动态的添加列

...全文

TCP Reno/CUBIC 拥塞控制算法对比：从 Tahoe 到 BBR 的 4 种核心策略演进本文深入解析了TCP拥塞控制算法的演进历程，从经典的Tahoe、Reno到现代的CUBIC和BBR，详细对比了4种核心策略的实现机制与性能差异。通过分析拥塞窗口、流量控制等关键技术，揭示了不同算法在高带宽延迟网络中的优化方向，为网络协议栈优化提供理论依据和实践指导。阅读详情

panyong

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

panyong 2010-08-06

打赏
举报

[Quote=引用 3 楼 jhone99 的回复:]
这样就可以动态获取
for i=0 to rs.fields.count-1
rs.fields(i).name 列名
rs.fields(i) 数值
next i
[/Quote]

这个读取的时候也有问题啊
提示对象不支持属性

panyong 2010-08-06

打赏
举报

[Quote=引用 5 楼 jhone99 的回复:]
不是已经有吗

http://topic.csdn.net/u/20100801/13/9913e1dc-6316-415c-b5e4-2616be133a93.html
[/Quote]

那个不对的数据能正确读出但是在listview中就是显示不出来
说是找不到项目估计是语句不对没有把那一列读出来

jhone99 2010-08-06

打赏
举报

不是已经有吗

http://topic.csdn.net/u/20100801/13/9913e1dc-6316-415c-b5e4-2616be133a93.html

panyong 2010-08-06

打赏
举报

[Quote=引用 3 楼 jhone99 的回复:]
这样就可以动态获取
for i=0 to rs.fields.count-1
rs.fields(i).name 列名
rs.fields(i) 数值
next i
[/Quote]
那SQL语句要怎么写呢
能具体点吗大哥

jhone99 2010-08-06

打赏
举报

这样就可以动态获取
for i=0 to rs.fields.count-1
rs.fields(i).name 列名
rs.fields(i) 数值
next i

panyong 2010-08-06

打赏
举报

没有吧不是很清晰吗
表1 表2 最后用VB LISTVIEW 显示出来
哪里有不清楚的呢

QQ342151559 2010-08-06

打赏
举报

感觉表好像有点混乱....

panyong 2010-08-06

打赏
举报

http://topic.csdn.net/u/20100806/16/3ceafcbb-6b98-4074-96be-70e14bb3a9dc.html

Tiger_Zhao 2010-08-06

打赏
举报

新开一帖，放上本帖链接，说明理由。

同时吧新帖的链接也放在这里。

panyong 2010-08-06

打赏
举报

[Quote=引用 9 楼 tiger_zhao 的回复:]
VB code
Option Explicit

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rsCol As ADODB.Recordset
Dim rsRow As ADODB.Recordset
Dim rsData A……
[/Quote]

大哥的也是对了
还可以给你分吗？要怎么给

panyong 2010-08-06

打赏
举报

谢谢各位大哥！

panyong 2010-08-06

打赏
举报

高手天天有今天特别高啊！马上测试！谢谢大哥

Tiger_Zhao 2010-08-06

打赏
举报

Option Explicit



Private Sub Command1_Click()

    Dim cn          As ADODB.Connection

    Dim rsCol       As ADODB.Recordset

    Dim rsRow       As ADODB.Recordset

    Dim rsData      As ADODB.Recordset

    Dim oSubCode    As Collection

    Dim lvi         As ListItem

    Dim sCriteria   As String

    Dim i           As Long

    

    Set cn = New ADODB.Connection

    cn.Open "..."

    

    Set rsCol = cn.Execute("SELECT * FROM 表2")

    Set rsRow = cn.Execute("SELECT DISTINCT ID FROM 表1")

    Set rsData = cn.Execute("SELECT * FROM 表1")

    Set oSubCode = New Collection

    

    '添加列头'

    ListView1.ListItems.Clear

    ListView1.ColumnHeaders.Clear

    ListView1.ColumnHeaders.Add , , "ID"

    While Not rsCol.EOF

        ListView1.ColumnHeaders.Add , , rsCol("代码") & rsCol("名称")

        oSubCode.Add rsCol("代码").Value

        

        rsCol.MoveNext

    Wend

    

    '添加数据'

    While Not rsRow.EOF

        Set lvi = ListView1.ListItems.Add(, , rsRow("ID"))

        

        For i = 1 To oSubCode.Count

            rsData.Filter = "(ID=" & rsRow("ID") & ") AND (代码='" & oSubCode(i) & "')"

            

            If rsData.EOF Then

                lvi.SubItems(i) = "无"

            Else

                lvi.SubItems(i) = rsData("用量")

            End If

        Next

        

        rsRow.MoveNext

    Wend

End Sub



Private Sub Form_Load()

    ListView1.View = lvwReport

End Sub

jhone99 2010-08-06

打赏
举报

用你以前的例子，测试成功

Private Sub Command1_Click()

    Dim strSql As String

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim j As Integer

    

    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\tt\t1.mdb;Persist Security Info=False"

    

    strSql = ""

    strSql = strSql & " Transform Sum(用量) " & vbNewLine

    strSql = strSql & " SELECT 日期, 产量" & vbNewLine

    strSql = strSql & " FROM (select a1.日期, 明细, 用量, 产量" & vbNewLine

    strSql = strSql & " from a1, a2, (select 日期, sum(a1.产量) as 产量 from a1 group by 日期) a3" & vbNewLine

    strSql = strSql & " Where a1.id = a2.id And a1.日期 = a3.日期" & vbNewLine

    strSql = strSql & " )" & vbNewLine

    strSql = strSql & " GROUP BY 日期, 产量" & vbNewLine

    strSql = strSql & " Pivot 明细" & vbNewLine



    rs.Open strSql, cn, adOpenStatic, adLockOptimistic

    

    

    With ListView1

        '设置ListView1的标题、显示类型、整行选择和网格线属性

        .ColumnHeaders.Clear

        .ListItems.Clear

        .View = lvwReport

        .FullRowSelect = True

        .GridLines = True

        '为ListView1设置标题

        For i = 0 To rs.Fields.Count - 1

            .ColumnHeaders.Add , , rs.Fields(i).Name

        Next i

        '为ListView1设置各行数据

        .ListItems.Clear

        i = 0

        While Not rs.EOF

            i = i + 1

            .ListItems.Add , , rs.Fields(0).Value

            For j = 1 To rs.Fields.Count - 1

                .ListItems(i).SubItems(j) = rs.Fields(j).Value & ""

            Next j

            rs.MoveNext

        Wend

    End With



    rs.Close

    Set rs = Nothing

    cn.Close

    Set cn = Nothing

    

End Sub

VB LISTVIEW 动态加载数据

相关推荐