- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何让数值小数位值的数字固定定显示为5或8 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57060)
-- 发布时间：2014/9/17 14:56:00
-- [求助]如何让数值小数位值的数字固定定显示为5或8
如下例子：如何让数值小数位值的数字固定定显示为5或8
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:如何让数值小数位值的数字固定定显示为5或8.table |
此主题相关图片如下：qq截图20140917145509.jpg
-- 发布时间：2014/9/17 15:08:00
--
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
-- 发布时间：2014/9/17 15:14:00
--
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
-- 发布时间：2014/9/17 17:27:00
--
谢谢，第二种方法是对的，能完全实现。