1金币
本帖最后由 adolfgzb 于 2019-7-16 09:25 编辑
- Public Class PercentCellTypeEx
- Inherits FarPoint.Win.Spread.CellType.PercentCellType
- Public Sub New()
- 'default
- ShowSeparator = False
- DecimalPlaces = 2
- FixedPoint = True
- End Sub
- Public Sub New(nilstr As String)
- Me.New()
- NullDisplay = nilstr
- End Sub
- Public Sub New(nilstr As String, decimalPlaces As Integer)
- Me.New(nilstr)
- Me.DecimalPlaces = decimalPlaces
- End Sub
- Public Overrides Function Format(ByVal obj As Object) As String
- If DBNull.Value.Equals(obj) Then
- Return NullDisplay
- End If
- If Double.TryParse(CType(obj, String), 0.0) Then
- Return MyBase.Format(CDbl(obj) / 100)
- Else
- Return MyBase.Format(obj)
- End If
- End Function
- End Class
程序是在后台动态设置控件类型以及绑定数据。画面因为显示问题，PercentCellTypeEx中有一个除以100的操作。
现在碰到的问题是导出Excel时数据又都乘以100了。有什么办法可以解决吗？
|
|
陕公网安备：61019002000258 |
隐私政策 |
网站地图
