如何在SSRS中实现Crystal Reports带变量的小数去尾零逻辑？

可以通过自定义代码（适合大量复用）或直接表达式两种方式实现和你Crystal Reports中逻辑一致的功能，以下是具体实现：

方法一：自定义代码（推荐，适合多处使用） #

1. 打开SSRS报表，右键报表空白处选择「报表属性」
2. 切换到「代码」标签页，粘贴以下VB代码：

Public Function TrimTrailingZeros(ByVal originalNum As Decimal) As String
    ' 提取小数部分的绝对值（兼容负数）
    Dim decimalPart As Decimal = Math.Abs(originalNum - Math.Truncate(originalNum))
    ' 转换为固定4位小数的字符串
    Dim decimalStr As String = decimalPart.ToString("F4")
    ' 截取小数部分的4位数字（去掉开头的"0."）
    Dim decimalOnly As String = decimalStr.Substring(2)
    
    ' 移除右侧所有尾随零
    decimalOnly = decimalOnly.TrimEnd("0"c)
    
    ' 根据处理结果返回对应字符串
    If String.IsNullOrEmpty(decimalOnly) Then
        Return "" ' 小数部分全为0时返回空，不显示小数点
    Else
        Return "." & decimalOnly ' 保留小数点和有效小数位
    End If
End Function

3. 在需要显示处理后数值的文本框中，使用以下表达式（替换Fields!Quantity_l.Value为你的实际字段名）：

=Math.Truncate(Fields!Quantity_l.Value).ToString() & Code.TrimTrailingZeros(Fields!Quantity_l.Value)

方法二：直接表达式（适合单文本框使用） #

如果不需要复用逻辑，可直接在文本框中使用嵌套表达式：

=
Dim originalNum = Fields!Quantity_l.Value
Dim intPart = Math.Truncate(originalNum)
Dim decimalPart = Math.Abs(originalNum - intPart)
Dim decimalStr = decimalPart.ToString("F4").Substring(2).TrimEnd("0"c)
If String.IsNullOrEmpty(decimalStr) Then
    intPart.ToString()
Else
    intPart.ToString() & "." & decimalStr
End If

逻辑验证 #

两种方法均与你提供的Crystal Reports逻辑完全一致：

• 若数值为123.0000，处理后显示123
• 若数值为123.1000，处理后显示123.1
• 若数值为123.1200，处理后显示123.12
• 若数值为123.1230，处理后显示123.123
• 若数值为-123.1234，处理后显示-123.1234

内容的提问来源于stack exchange，提问作者dawnyanne