老师,以下代码,计算剩余风险金计算不出来是怎么回事呢?“是否使用风险金、退回剩余风险金”两列都是重另外一个表库跨表引用过来的数据。
If e.DataCol.Name = "是否使用风险金" Then
If e.DataRow("是否使用风险金") = True Then
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "S ELECT DISTINCT 所属机构,剩余风险金,经营状态 From {分支机构管理}"
dt1 = cmd1.ExecuteReader()
Dim ds As DataRow = dt1.Find("所属机构 = '" & e.DataRow("所属机构") & "' and 经营状态 = '正常'")
If ds IsNot Nothing Then
e.DataRow("剩余风险金") = e.DataRow("退回风险金")+ ds("剩余风险金")
Else
e.DataRow("剩余风险金") = ds("剩余风险金")
End If
End If
End If
If e.DataCol.Name = "保证金状态" Then '如果是申请确认列的内容变动
If e.DataRow.IsNull("保证金状态") = False And e.DataRow("保证金状态") = "已退款成功" Then '而且变动后的值是True(已勾选)
'退回风险金后同步风险金至分支机构管理
Dim cmd2 As New SQLCommand
cmd2.C
cmd2.CommandText = "U PDATE {分支机构管理} SET 剩余风险金 = " & e.DataRow("剩余风险金") & " WHERE 所属机构 = '" & e.DataRow("所属机构") & "' and 经营状态 = '正常'"
cmd2.ExecuteNonQuery()
End If
End If
[此贴子已经被作者于2020/7/24 16:35:48编辑过]