以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码计算不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88987)
--  作者：yangwenghd
--  发布时间：2016/8/12 21:45: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 业务往来_方式=\'订单\'")
        dr("财务_待开票")=DataTables("订单附表").Compute("sum(订单核算_合计)","绑定号=\'" & e.DataRow("绑定号")  & "\' and 收款信息_开票状态 In (\'未开票\',\'核对中\') and 业务往来_方式=\'订单\'")
        \'收款信息_开票状态 In (\'未开票\',\'核对中\')
        
    End If
End If  \'计算未开票合计
--  作者：cbt
--  发布时间：2016/8/13 8:17:00
--  

Dim i As Integer  =DataTables("订单附表").Compute("sum(订单核算_合计)","绑定号=\'" & e.DataRow("绑定号") & "\' and 收款信息_开票状态 In (\'未开票\',\'核对中\') and 业务往来_方式=\'订单\'")

 dr("财务_待开票")=i