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

 你写的代码，是更新后台数据库的代码啊，跟你显示的没有任何关系。

 

 要想看到最新数据，就重新加载数据出来。

好，谢谢

大红袍老师，我的问题还是没有解决，其实我的问题说起来也不复杂，我的代码用的是抄的帮助里的“高效率流水账”的代码，但这段代码不是计算后台的数据的，而我呢就想让这段代码能直接计算后台的数据，但用自己的办法失败了，数据结果根本就没有反应，所以，还是来请教老师，怎样把帮助里高效率流水账”的代码变成可以直接统计后台的代码，谢谢！

 你的代码本来就没有问题啊。后台数据肯定有变化啊。

 

 要不你就做例子发上来，说明要什么效果。

能否麻烦您帮我远程一下

 

 上传例子，代码本来就没有问题。

 

 而且，你到底想做什么啊

Select Case e.DataCol.Name
    Case "开户行","贷入","借出" '这里针对的是单独某一行发生变化了,或者说是有改动了后的结果体现
        e.DataRow.save
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.SQLFind("[_Identify] < " & mr("_Identify") & " And [开户行] = '" & mr("开户行") & "'", "[_Identify] Desc")
        If dr Is Nothing Then
            mr("可支配余额") = mr("贷入") - mr("借出")
            dr = mr
            dr.save
        End If
        drs = e.DataTable.SQLSelect("[_Identify] >= " & dr("_Identify") & " And [开户行] = '" & dr("开户行") & "'", "[_Identify]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("可支配余额") = drs(i-1)("可支配余额") + drs(i)("贷入") - drs(i)("借出")
            drs(i).save
        Next
        e.DataTable.load()
        If e.DataCol.Name = "开户行" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.SQLFind("[_Identify] < " & mr("_Identify") & " And [开户行] = '" & e.OldValue & "'", "[_Identify] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.SQLFind("[开户行] = '" & e.OldValue & "'", "[_Identify]")
                If dr IsNot Nothing Then
                    dr("可支配余额") = dr("贷入") - dr("借出")
                End If
            End If
           
            If dr IsNot Nothing Then
                drs = e.DataTable.SQLSelect("[_Identify] >= " & dr("_Identify") & " And [开户行] = '" & dr("开户行") & "'", "[_Identify]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("可支配余额") = drs(i-1)("可支配余额") + drs(i)("贷入") - drs(i)("借出")
                Next
            End If
        End If
End Select

 

 

我就是在改变“贷入”或 “借出”时，“可支配余额”没有反应

 你这段代码修改的是后台数据的值，跟你看到的没有任何关系啊。

 

 上传具体例子

 

 

Select Case e.DataCol.Name
    Case "开户行","贷入","借出"
       
        e.DataTable.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
        e.DataTable.Load
End Select

谢谢你，可以了！