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

 现在有什么问题？

 

SQLSelect 搞成 Select

 那现在有什么问题？

 

 dr和drs(i)后面，全部加上save保存代码

 呃，不可能没有反应，后台数据肯定改变了。

1、加入msgbox看是否执行了对应代码；

 

2、加入save把行保存；

 

3、重新load数据，或者直接去后台数据库那里看数据的编号。

 

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

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

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

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

 

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

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

 

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