Foxtable(狐表)用户栏目专家坐堂 → 计算问题


  共有1268人关注过本帖平板打印复制链接

主题:计算问题

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
计算问题  发帖心情 Post By:2023/5/19 13:40:00 [只看该作者]

NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:表,GG, DataColChanged
详细错误信息:
调用的目标发生了异常。
索引超出范围。必须为非负值并小于集合大小。
参数名: index

Select Case e.DataCol.Name
    Case "第一列", "第二列"
        Dim dr As DataRow
        Dim drs As List(Of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") 
        If dr Is Nothing Then 
            e.DataRow("计算一") = 0
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 
            drs(i)("计算一") = drs(i - 1)("第一列") + drs(i - 1)("第二列")
            drs(i)("计算二") = drs(i - 2)("第一列") + drs(i - 1)("第二列")
            
            
        Next 
End Select

代码想实现:
计算一、计算二这2列,首2行不做计算,也就从第3行起开始做计算
第3行("计算一") = 上一行的("第一列") +  ("第二列"),也就("第一列") +  ("第二列")的第2行
第3行("计算二") = 前一行("第一列") + ("第二列"),也就("第一列") +  ("第二列")的第1行

第4行("计算一") = 上一行的("第一列") +  ("第二列"),也就("第一列") +  ("第二列")的第3行
第4行("计算二") = 前一行("第一列") + ("第二列"),也就("第一列") +  ("第二列")的第2行
以此类推



[此贴子已经被作者于2023/5/19 16:56:12编辑过]

 回到顶部