以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  清空单元格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179045)
--  作者：yaojun
--  发布时间：2022/8/4 12:39:00
--  清空单元格
我用如下代码获得月份，现在想当“日期”删除的时候，“月份”也同样清空，请问如何修改代码
If DataTables("问题收集").DataRows(0).Isnull("日期") Then
    e.DataRow("月份") = Format(e.DataRow("日期"),"yyyyMM")
Else
e.DataRow("月份").clear
End If
这代码是清除了日期后，月份还显示000101
--  作者：有点蓝
--  发布时间：2022/8/4 14:11:00
--  

select case e.datacol.name
case "日期"
If e.DataRow.Isnull("日期") = false Then
    e.DataRow("月份") = Format(e.DataRow("日期"),"yyyyMM")
Else
e.DataRow("月份") = nothing
End If
end select