以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  每次触发事件都会出错提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148327)
--  作者：dm168
--  发布时间：2020/4/5 12:47:00
--  每次触发事件都会出错提示
[Select Case e.DataCol.Name
    Case "Deposit","Withdrawal"
        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("Balance") = e.DataRow("Deposit") - e.DataRow("Withdrawal")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
            drs(i)("Balance") = drs(i-1)("Balance") + drs(i)("Deposit") - drs(i)("Withdrawal")
        Next    
End Select


 这段代码在DataColsChanged 哪里不对了? 
每次修改 deposit 和withdrawal 列都会提示 exception has been thrown by the target of on invocation
[此贴子已经被作者于2020/4/5 12:50:19编辑过]
--  作者：dm168
--  发布时间：2020/4/5 15:00:00
--  
找到原因了!原来是收入和支出列还和余额列没有设成数字列型