临时表回写到数据库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2239人关注过本帖树形打印复制链接主题：临时表回写到数据库

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/24 16:50:00 [显示全部帖子]

1、数据库没有符合条件的行

2、

If ds IsNot Nothing Then
            e.DataRow("剩余风险金") = e.DataRow("退回风险金")+ ds("剩余风险金")
        Else
            e.DataRow("剩余风险金") = nothing
        End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/24 17:04:00 [显示全部帖子]

If ds IsNot Nothing Then
            e.DataRow("剩余风险金") = e.DataRow("退回风险金")+ ds("剩余风险金")
        Else
            e.DataRow("剩余风险金") = e.DataRow("退回风险金")
        End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/24 17:42:00 [显示全部帖子]

f 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 {分支机构管理} where 所属机构 = '" & e.DataRow("所属机构") & "' and 经营状态 = '正常'"
        dt1 = cmd1.ExecuteReader()

msgbox(dt1.datarows.count)

        If dt1.datarows.count > 0 Then
            e.DataRow("剩余风险金") = e.DataRow("退回风险金")+ dt1.datarows(0)("剩余风险金")
        Else
            e.DataRow("剩余风险金") = e.DataRow("剩余风险金")
        End If
    End If
End If