1.新增报表程式码:funtion ReplaceZero
2.于算运式中套用fuction ReplaceZero
Public Function ReplaceZero(stockCount As Decimal,replaceStr As String) As String If stockCount = "0" Then ReplaceZero=replaceStr Else ReplaceZero=Format(stockCount, "#,##0.##") End IfEnd Function