- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动更新自然月统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109008)
-- 发布时间：2017/11/2 14:49:00
-- 自动更新自然月统计
老师 好
我想让，电站月读数能够自动更新，遂月排列显示。怎么处理呢
谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:居民电站.table |
-- 发布时间：2017/11/2 14:55:00
--
如何自动更新？做什么操作以后，根据哪个表的数据，根据什么逻辑，统计数据到哪个表？
请举例说明你要做的功能。
-- 发布时间：2017/11/2 15:08:00
--
1.电站月读数表数据来源于电站录入
2.电站月读数表显示的是电站录入表的统计，统计根据是相同名称，相同月期。
3.电站月读数表可以根据电站录入表的追加录入，自动插入更新的月期行同名称遂月排列显示。
-- 发布时间：2017/11/2 15:28:00
--
Dim dt As DataTable = DataTables("电站月读数")
For Each s As String In DataTables("电站录入").SQLGetValues("名称+\',\'+format(日期,\'yyyy-MM\')", "日期 is not null")
Dim ary = s.Split(",")
Dim d As Date = new Date(ary(1).split("-")(0), ary(1).split("-")(1), 1)
Dim nr As DataRow = dt.Find("名称 = \'" & ary(0) & "\' and 月期 >= #" & d & "# and 月期 < #" & d.AddMonths(1) & "#")
If nr Is Nothing Then
nr = dt.AddNew
nr("名称") = ary(0)
nr("月期") = d
End If
Next
\'dt.DataCols("名称").RaiseDataColChanged
-- 发布时间：2017/11/3 8:24:00
--
老师 好，，，执行不了，，你测试一下看看
-- 发布时间：2017/11/3 8:57:00
--
代码没问题，请单独做一个按钮执行4楼的代码。
-- 发布时间：2017/11/3 16:00:00
--
我是把写在事件里的，，做怎样的按钮呢
-- 发布时间：2017/11/3 17:24:00
--
以下是引用13868960029在2017/11/3 16:00:00的发言：
我是把写在事件里的，，做怎样的按钮呢
我是把写在事件里的，，做怎样的按钮呢
做一个窗口，加入一个按钮，把代码拷贝到click事件去。