Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

组合框选择年份一小技巧

时 间:2012-11-17 08:45:37
作 者:风行   ID:16058  城市:江阴
摘 要:陈玉才同学提了个小问题,觉得不错,故拿出来发文章
正 文:

问题:我想使用Combo控件,来控制年,如何自动产生?比如从2002-2050这个 区间的年份

combo控件就自动产生下拉框

2050

2012  默认指向与系统相同的年份

http://www.accessoft.com/bbs/showtopic.asp?id=16915


点击下载附件



Private Sub Form_Load()
    Dim lngI As Long
   
    Me.cboYear = Year(Date)
   
    Me.cboYear.AddItem Me.cboYear
   
    For lngI = 1 To 10
        Me.cboYear.AddItem Me.cboYear - lngI, 0
    Next
   
    For lngI = 1 To 39
        Me.cboYear.AddItem Me.cboYear + lngI
    Next
   
End Sub



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助