-- 作者:有点甜
-- 发布时间:2018/1/4 16:54:00
--
以下是引用舞楼名角在2018/1/4 16:22:00的发言:
(设计31列,就是每月天数不一样,希望屏蔽没有的日期填上,不知道有没办法处理)
1、年份、月份,分别填入 2018,2,这样的数据;日期列,这样命名,如 日1、日2、日3、日4.....
2、startEdit事件写代码
If e.Col.Name Like "日*" AndAlso e.Row.isnull("年份") = False AndAlso e.Row.isnull("月份") = False Then
Dim n As Integer = Date.DaysInMonth(e.Row("年份"), e.Row("月份"))
If e.Col.name.replace("日", "") > n Then
e.cancel = True
End If
End If
|