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("piao", 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("piao")
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("piao") = ""
Else
e.Book.Marks("piao") = 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
加好友 
发短信
Post By：2018/1/27 18:16:00 [显示全部帖子]
