主题：[求助]按列名包含"10月"or"11月"or"12月"求和代码能简化么

 
此主题相关图片如下：按列名求和.jpg

同事喜欢横的填不喜欢纵的T_T

在表事件DataColChanged里我刚写完了4季度里12月份的求和，但觉得太复杂了，请问能简化么？谢谢啦~

Select Case e.DataCol.Name
    Case "_12月1日","_12月2日","_12月3日","_12月4日","_12月5日","_12月6日","_12月7日","_12月8日","_12月9日","_12月10日","_12月11日","_12月12日","_12月13日","_12月14日","_12月15日","_12月16日","_12月17日","_12月18日","_12月19日","_12月20日","_12月21日","_12月22日","_12月23日","_12月24日","_12月25日","_12月26日","_12月27日","_12月28日","_12月29日","_12月30日","_12月31日"
        Dim dr As DataRow
        e.DataRow("_4季度") = e.DataRow("_12月1日")+e.DataRow("_12月2日")+e.DataRow("_12月3日")+e.DataRow("_12月4日")+e.DataRow("_12月5日")+e.DataRow("_12月6日")+e.DataRow("_12月7日")+e.DataRow("_12月8日")+e.DataRow("_12月9日")+e.DataRow("_12月10日")+e.DataRow("_12月11日")+e.DataRow("_12月12日")+e.DataRow("_12月13日")+e.DataRow("_12月14日")+e.DataRow("_12月15日")+e.DataRow("_12月16日")+e.DataRow("_12月17日")+e.DataRow("_12月18日")+e.DataRow("_12月19日")+e.DataRow("_12月20日")+e.DataRow("_12月21日")+e.DataRow("_12月22日")+e.DataRow("_12月23日")+e.DataRow("_12月24日")+e.DataRow("_12月25日")+e.DataRow("_12月26日")+e.DataRow("_12月27日")+e.DataRow("_12月28日")+e.DataRow("_12月29日")+e.DataRow("_12月30日")+e.DataRow("_12月31日")
End Select