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