spread保存Excel时百分比问题

1. 
   
2. Public Class PercentCellTypeEx
   
3.     Inherits FarPoint.Win.Spread.CellType.PercentCellType
   
4. 
   
5.     Public Sub New()
   
6.         'default
   
7.         ShowSeparator = False
   
8.         DecimalPlaces = 2
   
9.         FixedPoint = True
   
10.     End Sub
    
11. 
    
12.     Public Sub New(nilstr As String)
    
13.         Me.New()
    
14.         NullDisplay = nilstr
    
15.     End Sub
    
16. 
    
17.     Public Sub New(nilstr As String, decimalPlaces As Integer)
    
18.         Me.New(nilstr)
    
19.         Me.DecimalPlaces = decimalPlaces
    
20.     End Sub
    
21. 
    
22.     Public Overrides Function Format(ByVal obj As Object) As String
    
23. 
    
24.         If DBNull.Value.Equals(obj) Then
    
25.             Return NullDisplay
    
26.         End If
    
27. 
    
28.         If Double.TryParse(CType(obj, String), 0.0) Then
    
29.             Return MyBase.Format(CDbl(obj) / 100)
    
30.         Else
    
31.             Return MyBase.Format(obj)
    
32.         End If
    
33.     End Function
    
34. 
    
35. End Class

复制代码

程序是在后台动态设置控件类型以及绑定数据。画面因为显示问题，PercentCellTypeEx中有一个除以100的操作。
现在碰到的问题是导出Excel时数据又都乘以100了。有什么办法可以解决吗？

重写Format只是影响展示的Text，并不会影响单元格实际的Value，导出Excel的时候并不是是都乘以100了，而是从来都没变过。

不是特别清楚您数据的来源，看样子是string，可以直接在设置值的时候就转成nubmer/100设置。

dexteryao 发表于 2019-7-12 15:24
重写Format只是影响展示的Text，并不会影响单元格实际的Value，导出Excel的时候并不是是都乘以100了，而是 ...

是的，Format只是修改显示效果。
数据赋值时是Decimal型的，赋值时数据源那里修改，改的地方就比较多了，而且也要调查是否对整个工程有影响。
现在客户要求是追加两个功能：导出Excle和CSV，这样修改工程量太大了，有别的方法能解决吗？

您PercentCellTypeEx是在什么时机设置的，一中设置PercentCellTypeEx的时候顺便把单元格值改了。
另一种，遍历所有单元格，是PercentCellTypeEx类型的话，把值改了。

dexteryao 发表于 2019-7-12 19:08
您PercentCellTypeEx是在什么时机设置的，一中设置PercentCellTypeEx的时候顺便把单元格值改了。
另一种， ...

是绑定数据的时候设置的单元格属性，这时候修改值要所有的画面都修改一遍。
那先考虑导出Excle的时候遍历PercentCellTypeEx，然后修改，

adolfgzb 发表于 2019-7-15 08:36
是绑定数据的时候设置的单元格属性，这时候修改值要所有的画面都修改一遍。
那先考虑导出Excle的时候遍 ...

通过  fpSpread1.ActiveSheet.NonEmptyColumnCount和

            fpSpread1.ActiveSheet.NonEmptyRowCount
可以获取非空单元格范围。
这个数据遍历不会慢

dexteryao 发表于 2019-7-15 10:18
通过  fpSpread1.ActiveSheet.NonEmptyColumnCount和

            fpSpread1.ActiveSheet.NonEmptyRo ...

好的，谢谢。目前就这么处理了，以后有问题再问。