主题：[求助]统计过去10天的最大值-当天的值的差？

做个按钮，执行代码

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