Private Sub Form_Load()
Dim mylist As String
Dim mydate As Date
mydate = DateSerial(Year(Date), Month(Date), 1) ' 获取当月1日的日期
mylist = ""
Do While Format(mydate, "yymm") = Format(Date, "yymm")
mylist = mylist & mydate & ";" ' 获取当月日期列表
mydate = DateAdd("d", 1, mydate)
Loop
Me.日期.RowSource = mylist ' 对组合框数据源赋值
End Sub