- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]统计过去10天的最大值-当天的值的差？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109036)
-- 发布时间：2017/11/3 0:55:00
-- [求助]统计过去10天的最大值-当天的值的差？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
该表中增加了一列表达式列MAX1，该列要统计最高列中过去10天的最大值，并用最大值减去当天的值。请问该如何写表达式？
相当于前9行都没有值，从第10行开始每行统计最高列中的最大值，并用该最大值减去当天的值。
-- 发布时间：2017/11/3 9:14:00
--
做个按钮，执行代码
Dim t As Table = Tables("国电电力数据")
For i As Integer = 9 To t.Rows.count-1
Dim r As Row = t.Rows(i)
Dim max As Double = 0
For j As Integer = i-9 To i
If t.Rows(j)("最高") > max Then
max = t.Rows(j)("最高")
End If
Next
r("MAX1")=max-r("最高")
Next