以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel去除零的语句不好用了呢？什么也不显示了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114063)
--  作者：xxfoxtable
--  发布时间：2018/1/27 18:16:00
--  excel去除零的语句不好用了呢？什么也不显示了
<iif([%Sum(现金)]= 0,"",[%Sum(现金)])>
--  作者：有点甜
--  发布时间：2018/1/28 14:45:00
--  

不能这样写。只能变通使用报表事件动态赋值

 

http://www.foxtable.com/webhelp/scr/1953.htm

 
--  作者：xxfoxtable
--  发布时间：2018/1/28 15:07:00
--  
Select Case e.Book.TempLate
    Case "模板名称"
        If e.DataRow IsNot Nothing AndAlso e.Region = "客户" Then 
            Dim Filter1 As String = "客户 = \'" & e.DataRow("客户") & "\' And 已结账 = True"
            Dim Filter2 As String = "客户 = \'" & e.DataRow("客户") & "\' And 已结账 = False"
              if DataTables("订单").Compute("Sum(金额)",Filter1)=0
              e.Book.Marks("已结账") =""
              else
            e.Book.Marks("已结账") = DataTables("订单").Compute("Sum(金额)",Filter1)
              end if
            e.Book.Marks("未结账") = DataTables("订单").Compute("Sum(金额)",Filter2)
        End If
End Select
是这样写吗？
--  作者：有点甜
--  发布时间：2018/1/28 15:09:00
--  

统计一般在页脚或者分组脚吧？具体要看你模板怎么设计的。

 

http://www.foxtable.com/webhelp/scr/1957.htm

 

http://www.foxtable.com/webhelp/scr/1959.htm

 
--  作者：xxfoxtable
--  发布时间：2018/1/28 16:38:00
--  
Select Case e.Book.TempLate
    Case "消费明细"
        e.Book.Marks.Add("消费次数", 0)
        e.Book.Marks.Add("现金", 0)
        e.Book.Marks.Add("微信", 0)
        e.Book.Marks.Add("储值卡", 0)
        e.Book.Marks.Add("洗车卡支付", 0)
        e.Book.Marks.Add("票", 0)
        e.Book.Marks.Add("免单", 0)
        e.Book.Marks.Add("餐饮转账", 0)
        e.Book.Marks.Add("客房转账", 0)
        e.Book.Marks.Add("支付宝", 0)
End Select


Select Case e.Book.TempLate
    Case "消费明细"
        Dim Sum1, Sum2, Sum3, Sum4, Sum5, Sum6, Sum7, Sum8,sum9,sum10 As Double
        For Each dr As DataRow In e.TotalRows
                Sum1 = Sum1 + dr("现金")
                Sum2 = Sum2 + dr("微信")
                Sum2 = Sum2 + dr("储值卡")
                Sum2 = Sum2 + dr("洗车卡支付")
                Sum2 = Sum2 + dr("票")
                Sum2 = Sum2 + dr("免单")
                Sum2 = Sum2 + dr("餐饮转账")
                Sum2 = Sum2 + dr("客房转账")
                Sum2 = Sum2 + dr("支付宝")
                Sum2 = Sum2 + dr("消费次数")
        Next
        If sum1=0 Then
        e.Book.Marks("现金") = ""
        Else
        e.Book.Marks("现金") = Sum1
        End If
        If sum2=0 Then
        e.Book.Marks("微信") = ""
        Else
        e.Book.Marks("微信") = Sum2
        End If
        If sum3=0 Then
        e.Book.Marks("储值卡") = ""
        Else
        e.Book.Marks("储值卡") = Sum3
        End If
        If sum4=0 Then
        e.Book.Marks("洗车卡支付") = ""
        Else
        e.Book.Marks("洗车卡支付") = Sum4
        End If
        If sum5=0 Then
        e.Book.Marks("票") = ""
        Else
        e.Book.Marks("票") = Sum5
        End If
        If sum6=0 Then
        e.Book.Marks("免单") = ""
        Else
        e.Book.Marks("免单") = Sum6
        End If
        If sum7=0 Then
        e.Book.Marks("餐饮转账") = ""
        Else
        e.Book.Marks("餐饮转账") = Sum7
        End If
        If sum8=0 Then
        e.Book.Marks("客房转账") = ""
        Else
        e.Book.Marks("客房转账") = Sum8
        End If
        If sum9=0 Then
        e.Book.Marks("支付宝") = ""
        Else
        e.Book.Marks("支付宝") = Sum9
        End If
        If sum10=0 Then
        e.Book.Marks("消费次数") = ""
        Else
        e.Book.Marks("消费次数") = Sum10
        End If
End Select
--  作者：xxfoxtable
--  发布时间：2018/1/28 16:38:00
--  
我是这样加的，不好用呢？
--  作者：有点甜
--  发布时间：2018/1/28 16:41:00
--  

1、你模板截图看一下，怎么定义的？

 

2、事件代码那里加入msgbox看似会否弹出。

 

3、如果不会处理上传实例。