农历的判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name

Case "一月计划","二月计划","三月计划","四月计划","五月计划","六月计划","七月计划","八月计划","九月计划","十月计划","十一计划","十二计划"

Dim ln As new lunar(e.newvalue)

If ln.m Then

If ln.day = "28" Then

MessageBox.Show("农历假期,不可安排设备保养!")

e.Cancel = True

End If

End Select

上面 datacolchanging 代码我希望在输入公历日期后，判断出农历的月和日，如果是农历12月28日，那么就不安排设备保养。但是执行起来不起作用。请问是什么原因？

主题：农历的判断