以文本方式查看主题 -  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=107572)

--  作者：13868960029 --  发布时间：2017/9/30 15:58:00 --  自动统计 老师，，月电量统计表不能统计  帮看看  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:112(1).table

--  作者：y2287958 --  发布时间：2017/9/30 16:11:00 --   我这里测试可以统计的，问题在哪里？

--  作者：13868960029 --  发布时间：2017/9/30 16:29:00 --   我要求月份自动 此主题相关图片如下：s1.png

--  作者：13868960029 --  发布时间：2017/9/30 16:30:00 --   录入之后    月电量自动统计   自动显示月份

--  作者：有点蓝 --  发布时间：2017/9/30 16:38:00 --   电站录入表，Datacolchanged事件，加入一下代码 Select Case e.DataCol.Name     Case "日发电","日期","名称"         If e.DataRow.IsNull("名称") = False Then             dr =DataTables("居民电站").Find("名称=\'" & e.DataRow("名称")  & "\'")             If dr Is Nothing Then                 dr = DataTables("居民电站").AddNew()                 dr("名称") = e.DataRow("名称")             Else                 DataTables("居民电站").DataCols("名称").RaiseDataColChanged(dr)             End If             If e.DataRow.IsNull("日期") = False Then                 Dim d As Date = e.DataRow("日期")                 d = new Date(d.Year,d.Month,1)                 dr = DataTables("月电量统计").Find("名称=\'" & e.DataRow("名称")  & "\' and 月份=#" & d & "#")                 If dr Is Nothing Then                     dr = DataTables("月电量统计").AddNew()                     dr("名称") = e.DataRow("名称")                     dr("月份") = d                 Else                     DataTables("月电量统计").DataCols("名称").RaiseDataColChanged(dr)                 End If             End If         End If End Select