[已解决]日历自动更新，

fangcheng52013

请各位帮忙看一下附件的的更新代码怎么不管用了
就是让日历和电脑的日期同步，
Private Sub UserForm_Initialize()
Calendar1.Month = Month(Date)
Calendar1.Day = Day(Date)
End Sub
这个代码怎么没有办法更新

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-17 19:28

Private Sub UserForm_Initialize()
    Calendar1 = Date
End Sub

跳转到最佳答案楼层

zjdh

Private Sub UserForm_Initialize()
    Calendar1 = Date
End Sub

fangcheng52013

zjdh 发表于 2012-7-17 19:28
Private Sub UserForm_Initialize()
    Calendar1 = Date
End Sub

你好，请教下， sql = "Select * from Ruku Where  Month(入库日期)=1 And 商品代码 ='Y002'"那个Y002从textbo1中得来，要怎么引用，谢谢