以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  农历的判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175200)

--  作者：edisontsui --  发布时间：2022/2/23 18:39:00 --  农历的判断 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 If End Select 上面 datacolchanging 代码我希望在输入公历日期后，判断出农历的月和日，如果是农历12月28日，那么就不安排设备保养。但是执行起来不起作用。请问是什么原因？

--  作者：edisontsui --  发布时间：2022/2/23 18:47:00 --   可以了。