主题：流水账外部加载问题

Select Case e.DataCol.Name
    Case "开户行","贷入","借出"
       
        DataTables("银行借贷明细").Save
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.SQLFind("[_SortKey] < " & mr("_SortKey") & " And [开户行] = '" & mr("开户行") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("可支配余额") = mr("贷入") - mr("借出")
            mr.save
            dr = mr
        End If
        drs = e.DataTable.SQLSelect("[_SortKey] >= " & dr("_SortKey") & " And [开户行] = '" & dr("开户行") & "'",  "", "[_SortKey]")
        msgbox(drs.Count)
        For i As Integer = 1 To drs.Count - 1
            drs(i)("可支配余额") = drs(i-1)("可支配余额") + drs(i)("贷入") - drs(i)("借出")
            drs(i).save
        Next
        If e.DataCol.Name = "开户行" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.SQLFind("[_SortKey] < " & mr("_SortKey") & " And [开户行] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.SQLFind("[开户行] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("可支配余额") = dr("贷入") - dr("借出")
                    dr.Save
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.SQLSelect("[_SortKey] >= " & dr("_SortKey") & " And [开户行] = '" & dr("开户行") & "'", "", "[_SortKey]")
                msgbox(drs.Count)
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("可支配余额") = drs(i-1)("可支配余额") + drs(i)("贷入") - drs(i)("借出")
                    drs(i).Save
                Next
            End If
        End If
End Select

请看14    19楼.

各位老师，可能是这句出了问题
If e.DataCol.Name = "开户行" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
代码的最上面我已经用了 Case "开户行","贷入","借出"   是不是重复

根据19楼提示，就是到

If e.DataCol.Name = "开户行" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
这句就过不去，所以我怀疑是不是  "开户行" 这个条件重复了

嗯.是的.

复制21楼代码，看运行结果

26楼，你好！显示749这个窗口

 那就说明后台数据库的数据已经修改了

可是 为什么不加减呢 也就是输入   借出 或  贷入后  可支配列 没有反应

可是 为什么不加减呢 也就是说输入“借出” 或  “贷入”输入数据后  可支配列没有反应