| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 456 人关注过本帖
标题:怎么编译错误?
只看楼主 加入收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
结帖率:70%
  已结贴   问题点数:20  回复次数:4   
怎么编译错误?
List1.List = brr
使用listbox怎么编译时错误,参数必选?

[此贴子已经被作者于2018-4-29 23:03编辑过]

搜索更多相关主题的帖子: 编译 错误 List listbox 参数 
2018-04-29 21:50
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:251
帖 子:4408
专家分:27065
注 册:2008-10-15
  得分:20 
List1.List 是listbox 的一个内置对象,
所以不能使用 等号赋值。

对这个对象,VB6 提供了一些动作和属性来操作它。
具体你查相关书籍吧!百度也应该有结果的。


授人于鱼,不如授人于渔
早已停用QQ了
2018-04-30 11:37
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 2楼 风吹过b
Sub abc()
    Dim i As Integer, j As Integer, R As Integer
    Dim d As Object
    Dim ar, br(), m As Integer
    Set d = CreateObject("Scripting.Dictionary")
    R = Sheets(1).[K65536].End(3).Row
    ar = Sheets(1).Range("K5:M" & R)
    ReDim br(1 To UBound(ar), 1 To 2)
    For i = 1 To UBound(ar)
        If Not d.Exists(ar(i, 1)) Then
            m = m + 1
            d(ar(i, 1)) = m
            br(m, 1) = ar(i, 1)
            br(m, 2) = ar(i, 3)
        Else
            br(d(ar(i, 1)), 2) = br(d(ar(i, 1)), 2) + ar(i, 3)
        End If
    Next
    For i = 1 To m
        For j = 1 To 2
            List1.AddItem brr(i, j)
        Next
    Next

现在listbox能正常显示数据,就是一行显示一个数据,怎么才能让每2个数据显示在一行,是不是listbox不能显示多列?


[此贴子已经被作者于2018-5-6 20:42编辑过]

2018-05-01 11:02
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:251
帖 子:4408
专家分:27065
注 册:2008-10-15
  得分:0 
    For i = 1 To m
            List1.AddItem brr(i, 1) & " " & brr(i,2)
    Next

自己拼成一行添加进去

授人于鱼,不如授人于渔
早已停用QQ了
2018-05-01 17:09
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 4楼 风吹过b
谢谢!!!

[此贴子已经被作者于2018-5-6 20:42编辑过]

2018-05-02 22:50







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029328 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved