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

各位老师你们好！帮我看看下面这段流水账的代码哪里有问题，非常感谢！

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("借出")
            dr = mr
        End If
        drs = e.DataTable.SQLSelect("[_SortKey] >= " & dr("_SortKey") & " And [开户行] = '" & dr("开户行") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("可支配余额") = drs(i-1)("可支配余额") + drs(i)("贷入") - drs(i)("借出")
        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("借出")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.SQLSelect("[_SortKey] >= " & dr("_SortKey") & " And [开户行] = '" & dr("开户行") & "'", "[_SortKey]")
                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

你好，我是要直接统计后台的数据

Case "开户行","贷入","借出"    这三列变化后  系统没有反应

我加保存，还是出不来

后台用的是SQL数据库，我看到"[_SortKey有打钩

谢谢，我试一试

请问狐狸爸爸在吗。我上面的问题真的要求助你了，还是没有办法解决，

就是不反应  贷入  列 与  借出列放入数据，一点反应都没有

附件是系统表
此主题相关图片如下：qq截图20150609154545.jpg

我把代码中的SQLfind 与  SQLsclect中的SQL去掉，代码都能正常的运行，没有问题