Foxtable(狐表)用户栏目专家坐堂 → 临时表回写到数据库


  共有2238人关注过本帖平板打印复制链接

主题:临时表回写到数据库

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
临时表回写到数据库  发帖心情 Post By:2020/7/24 16:31:00 [只看该作者]

老师,以下代码,计算剩余风险金计算不出来是怎么回事呢?“是否使用风险金、退回剩余风险金”两列都是重另外一个表库跨表引用过来的数据。

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编辑过]

 回到顶部
总数 13 1 2 下一页