- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 表内统计 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107086)
-- 发布时间：2017/9/21 10:09:00
-- 表内统计
这个表内 需要自动统计
录入需要单立窗口直接录入 录入内容就是日期和逆变器的发电量 和日发电量
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:浙江奥能企业光伏电站.table |
-- 发布时间：2017/9/21 10:40:00
--
DataColChanged事件
Select Case e.DataCol.Name
Case "日期","逆变器_ST20K17000631","逆变器_ST5017000384"
Dim d2 As Date = e.DataRow("日期")
Dim d1 = new Date(d2.Year, d2.Month, 1)
Dim d3 As Date = new Date(d2.Year, 1, 1)
Dim filter1 As String = "日期 >= #" & d1 & "# and 日期 <= #" & d2 & "#"
Dim filter2 As String = "日期 >= #" & d3 & "# and 日期 <= #" & d2 & "#"
e.DataRow("发电量_月发电量") = e.DataTable.Compute("sum(发电量_日发电量)", filter1)
e.DataRow("发电量_年发电量") = e.DataTable.Compute("sum(发电量_日发电量)", filter2)
End Select