主题：循环引用计算

老师，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