安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access列表框全选和全不选记录

2017-12-14 17:20:00
tmtony8
原创
1279

前面我们在《Access设置列表框多选》一文中讲过如何多选列表框的记录。

有时我们需要选择全部记录,?#19981;?#20840;部不选择。如果数据量多的话,逐个选择显然不方便。


1.用shift键批量选择。前面讲过,“多重选择”属性,选择“展开的”。此用shift键可以选择连续的记录

2.用代码批量获取

全选

详细代码:

Private Sub Command4_Click()
    Dim i As Long
    Dim lngCnt As Long
    lngCnt = Me.List0.ListCount
    For i = 0 To lngCnt - 1
      Me.List0.Selected(i) = True
    Next

End Sub


全不选

详细代码:

Private Sub Command5_Click()
 Dim lngCnt As Long
    lngCnt = Me.List0.ListCount
    For i = 0 To lngCnt - 1
      Me.List0.Selected(i) = False
    Next
End Sub

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
    内存占用:7.75MB
    PHP 执行时间:0.18
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假