- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]按列名包含"10月"or"11月"or"12月"求和代码能简化么 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158924)
-- 发布时间：2020/12/7 15:23:00
-- [求助]按列名包含"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
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
-- 发布时间：2020/12/7 15:50:00
--
if e.DataCol.Name like "_12月*" then
dim sum as double
for each dc as datacol in e.datatable.datacols
if dc.name like "_12月*"
sum += e.DataRow(dc.name)
end if
next
e.DataRow("_4季度") = sum
end if