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


  共有4359人关注过本帖树形打印复制链接

主题:当结果为0,列表不显示

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望: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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/2/6 14:36:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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 积分:18062 威望: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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/26 11:15:00 [只看该作者]

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

 回到顶部