问题：我想使用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