[已解决]ListView2数据添加到ListView1的数量控制··················

792351999

Sub 入库()
'Private Sub ListView2_DblClick() '
Set 棋盘A01 = 入库.ListView1.ListItems.Add()
Set 棋盘A02 = 入库.ListView2
棋盘A01.Text = "宝"
盘A01.SubItems(1) = 棋盘A02.SelectedItem.SubItems(1) '
           棋盘A01.SubItems(2) = 棋盘A02.SelectedItem.SubItems(2) '
           棋盘A01.SubItems(3) = 棋盘A02.SelectedItem.SubItems(3) '
           棋盘A01.SubItems(4) = 棋盘A02.SelectedItem.SubItems(4) '
           棋盘A01.SubItems(5) = 棋盘A02.SelectedItem.SubItems(5) '
           '棋盘A01.SubItems(7) = "赣"
          棋盘A01.SubItems(13) = 棋盘A02.SelectedItem.SubItems(9) '
End Sub

'在这代码添加一个数据添加判断，当数据在 ListView2已经有了22条后，就不允许再添加。这个判断怎么写？

最佳答案

月排行榜 / 总排行榜

zjdh

2015-12-17 21:21

Sub 入库()
    If ListView1.ListItems.Count > 22 Then
        MsgBox "数据已超过22条"
        Exit Sub
    End If
    Set 棋盘A01 = 入库.ListView1.ListItems.Add()
    Set 棋盘A02 = 入库.ListView2
    .........
End Sub

跳转到最佳答案楼层

zjdh

你那一句是向ListView2添加数据的？？

792351999

zjdh 发表于 2015-12-17 17:58
你那一句是向ListView2添加数据的？？

棋盘A01 是.ListView1
棋盘A02 是.ListView2



     

zjdh

这我懂！！
你的标题是“添加到ListView2的数量控制”，看你的语句：
Set 棋盘A01 = 入库.ListView1.ListItems.Add()
是向ListView1添加数据！

792351999

zjdh 发表于 2015-12-17 19:34
这我懂！！
你的标题是“添加到ListView2的数量控制”，看你的语句：
Set 棋盘A01 = 入库.ListView1.List ...

老师非常对不起，是我写反了，是ListView2数据添加到ListView1的数量进行控制

zjdh

Sub 入库()
    If ListView1.ListItems.Count > 22 Then
        MsgBox "数据已超过22条"
        Exit Sub
    End If
    Set 棋盘A01 = 入库.ListView1.ListItems.Add()
    Set 棋盘A02 = 入库.ListView2
    .........
End Sub

792351999

zjdh 发表于 2015-12-17 21:21
Sub 入库()
    If ListView1.ListItems.Count > 22 Then
        MsgBox "数据已超过22条"

大师!
有没有办法实现这样的效果
http://www.excelpx.com/thread-458049-1-1.html