| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 当结果为0，列表不显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145743) |
| -- 作者：yangwenghd -- 发布时间：2020/2/6 13:14:00 -- 当结果为0，列表不显示 老师，能帮忙看看这个吗？就是当计算结果 工作_提成可领 列为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 \'企业档案提成可领取计算 |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2020/2/6 14:36:00 -- 谢谢老师，就是当结果是0的时候 工作_提成可领 列还是什么字符都没有呢，感谢 感谢 |
| -- 作者：有点蓝 -- 发布时间：2020/2/6 14:43:00 -- 显示为“空白”2个字？ if sum = 0 then dr("工作_提成可领")=“空白” else dr("工作_提成可领")=sum end if |
| -- 作者：yangwenghd -- 发布时间：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行不通呢，感谢 感谢
|
| -- 作者：有点蓝 -- 发布时间：2020/2/26 11:15:00 -- If dr.isnull("库资_单最小量") Then dr("库资_单最小量")=0 End If |