主题：[求助]如何让数值小数位值的数字固定定显示为5或8

如下例子：如何让数值小数位值的数字固定定显示为5或8

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:如何让数值小数位值的数字固定定显示为5或8.table

 

此主题相关图片如下：qq截图20140917145509.jpg

DrawCell事件

Select Case e.Col.name

    Case "批发价","零售价"

        Dim value As String = e.Row(e.Col.name)

        If Value.Contains(".") Then

            Dim x As String() = Value.Split(".")

            e.Text= x(0) & "." & IIF(Val(x(1))>5,8,5)

        End If

End Select

DatacolChanged事件，代码

 

Select Case e.DataCol.Name
    Case "成本价", "批发价"
        If e.DataRow("零售价") - Math.Floor(e.DataRow("零售价")) <= 0.5 Then
            e.DataRow("修改后的零售价") = Math.Floor(e.DataRow("零售价")) + 0.5
        Else
            e.DataRow("修改后的零售价") = Math.Floor(e.DataRow("零售价")) + 0.8
        End If
End Select

谢谢，第二种方法是对的，能完全实现。