主题：循环引用计算

老师，table中循环引用计算了，请老师看看，该怎么修改

Select Case e.DataCol.Name
    Case "是否使用风险金","本次使用风险金","剩余风险金","保证金金额"
        Dim ds As DataRow = dt1.Find("所属机构 = '" & e.DataRow("所属机构") & "' and 经营状态 = '正常'")
        If ds IsNot Nothing Then
            e.DataRow("剩余风险金") = ds("剩余风险金")
            If e.DataRow("是否使用风险金") = True Then
                e.DataRow("本次使用风险金") = e.DataRow("保证金金额")
                If  e.DataRow("本次使用风险金") > e.DataRow("剩余风险金") Then
                    MessageBox.Show("剩余风险金不足以支付本次保证金,请现金转账支付本次保证金!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                    e.DataRow("是否使用风险金") = False
                    e.DataRow("本次使用风险金") = Nothing
                Else
                    e.DataRow("剩余风险金") = ds("剩余风险金") - e.DataRow("本次使用风险金")
                End If
            Else
                e.DataRow("是否使用风险金") = False
                e.DataRow("本次使用风险金") = Nothing
            End If
        Else
            MessageBox.Show("你未缴纳风险金,不能使用风险金!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.DataRow("是否使用风险金") = False
            e.DataRow("剩余风险金") = Nothing
        End If
End Select

 

没看懂，这段代码想要干嘛？使用文字详细描述一下

前面少 一段代码

 

Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "S  ELECT DISTINCT 所属机构,承包风险金,剩余风险金,经营状态 From {分支机构管理}"
dt1 = cmd1.ExecuteReader()

 

如果使用风险金时，在在dt1中查找相同“所属机构”且状态为“正常”的分支机构，

找到后

本表的“剩余风险金” = dt1中“剩余风险金”

如果使用了风险金，剩余风险金= 总的剩余风险金-本次使用的风险金

 

执行完成后还需要将剩余风险金写入到“dt1”中剩余风险金

如果使用风险金时，在在dt1中查找相同“所属机构”且状态为“正常”的分支机构，

找到后

本表的“剩余风险金” = dt1中“剩余风险金”

如果使用了风险金，剩余风险金= 总的剩余风险金-本次使用的风险金

这个2个条件相同，到底计算哪个？

第一个是需要知道剩余风险金金额，所以找到后就执行

第二个是当是否使用风险金=true才计算，现在增加了一列辅助列，还是循环的

 

Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "S  ELECT DISTINCT 所属机构,承包风险金,剩余风险金,经营状态 From {分支机构管理}"
dt1 = cmd1.ExecuteReader()

Select Case e.DataCol.Name
    Case "是否使用风险金","本次使用风险金","剩余风险金","保证金金额"
        Dim ds As DataRow = dt1.Find("所属机构 = '" & e.DataRow("所属机构") & "' and 经营状态 = '正常'")
        If ds IsNot Nothing Then
            e.DataRow("剩余风险金") = ds("剩余风险金")
            If e.DataRow("是否使用风险金") = True Then
                e.DataRow("本次使用风险金") = e.DataRow("保证金金额")
                If  e.DataRow("本次使用风险金") > e.DataRow("剩余风险金") Then
                    MessageBox.Show("剩余风险金不足以支付本次保证金,请现金转账支付本次保证金!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                    e.DataRow("是否使用风险金") = False
                    e.DataRow("本次使用风险金") = Nothing
                Else
                    e.DataRow("本次剩余风险金") = ds("剩余风险金") - e.DataRow("本次使用风险金")
                End If
            Else
                e.DataRow("是否使用风险金") = False
                e.DataRow("本次使用风险金") = Nothing
            End If
        Else
            MessageBox.Show("你未缴纳风险金,不能使用风险金!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.DataRow("是否使用风险金") = False
            e.DataRow("剩余风险金") = Nothing
        End If
End Select

Dim cmd2 As New SQLCommand
cmd2.C
cmd2.CommandText = "U  PDATE {分支机构管理} SET 剩余风险金 = " & e.DataRow("本次剩余风险金") & " WHERE 所属机构 = '" & e.DataRow("所属机构") & "' and 经营状态 = '正常'"
cmd2.ExecuteNonQuery()

 

Case "是否使用风险金","本次使用风险金","剩余风险金","保证金金额"