主题：[原创] 设计DataColChanged代码报错 找不到原因了 求助

这里还要判断一下才行吧：

……

 drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")

if drs.Count > 0
    For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
        drs(i)("余额") = drs(i-1)("余额") + drs(i)("入账") - drs(i)("出账金额")
    Next
end if

……