当结果为0，列表不显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 当结果为0，列表不显示

共有4103人关注过本帖树形打印复制链接主题：当结果为0，列表不显示

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

当结果为0，列表不显示 发帖心情

Post By：2020/2/6 13:14:00 [只看该作者]

老师，能帮忙看看这个吗？就是当计算结果工作_提成可领列为0的时候，工作_提成可领显示为空白，是那里出了问题呀？感谢感谢

If e.DataRow.IsNull("订单序号")=False Then

    Dim dr As DataRow = DataTables("企业档案").Find("企业_企业序号='" & e.DataRow("企业链号") & "'")
    If dr IsNot Nothing Then
        dr("工作_提成可领")=DataTables("订单附表").Compute("sum(订单核算_应提成额)","企业链号='" & e.DataRow("企业链号") & "' and 业务往来_方式='订单'and 业务往来_订单性质='工作'and 订单核算_结领否='未发放'and 收款信息_付款否=true")
    End If
End If '企业档案提成可领取计算

有点蓝

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

加好友

发短信

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

Post By：2020/2/6 13:36:00 [只看该作者]

If e.DataRow.IsNull("订单序号")=False Then

Dim dr As DataRow = DataTables("企业档案").Find("企业_企业序号='" & e.DataRow("企业链号") & "'")
If dr IsNot Nothing Then

dim sum = DataTables("订单附表").Compute("sum(订单核算_应提成额)","企业链号='" & e.DataRow("企业链号") & "' and 业务往来_方式='订单'and 业务往来_订单性质='工作'and 订单核算_结领否='未发放'and 收款信息_付款否=true")

if sum = 0 then
dr("工作_提成可领")=nothing

else

dr("工作_提成可领")=sum

end if
End If
End If

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/2/6 14:36:00 [只看该作者]

谢谢老师，就是当结果是0的时候工作_提成可领列还是什么字符都没有呢，感谢感谢

有点蓝

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

加好友

发短信

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

Post By：2020/2/6 14:43:00 [只看该作者]

显示为“空白”2个字？

if sum = 0 then
dr("工作_提成可领")=“空白”

else

dr("工作_提成可领")=sum

end if

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2020/2/26 10:27:00 [只看该作者]

If e.DataRow.IsNull("业务往来_货物状态")=False Then
    Dim dr As DataRow = DataTables("库存表").Find("产品_产品链号='" & e.DataRow("业务往来_产品链号") & "'")
    If dr IsNot Nothing Then
        dr("库资_单最小量")=DataTables("订单附表").Compute("min(订单核算_出单数量)","业务往来_产品链号='" & e.DataRow("业务往来_产品链号") & "' and 业务往来_方式='订单'and 业务往来_订单性质='工作'and 业务往来_货物状态 In ('采购中','需采购')")
        If dr("库资_单最小量")="" Then
            dr("库资_单最小量")=0
        End If
    End If

End If '计算数量最小订单

老师如没有内容显现为0行不通呢，感谢感谢

有点蓝

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

加好友

发短信

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

Post By：2020/2/26 11:15:00 [只看该作者]

If dr.isnull("库资_单最小量") Then
dr("库资_单最小量")=0
End If

下一主题 >> << 上一主题

主题：当结果为0，列表不显示