[MultiRow6.0]Cell焦点离开时，如何做format处理

Cell焦点离开时，如何做format处理

比如：自己写了CustomCell继承TextBoxCell ，EditType里放CustomTextBoxEditingControl
        输入  1234
       焦点离开后自动变换为   1，234
做个自动添加数字逗号的功能

可以在CustomTextBoxEditingControl的TerminateEditingControl里设置Cell的Value吗？
但一般做法都是调用DirtyStateChanged来实现改变Cell的Value。
所以我写了OnTextChanged方法来触发DirtyStateChanged
但最后没有变成Format后的值

1. dfdf
   
2. Public Class CustomTextBoxEditingControl
   
3. 
   
4. Protected Overrides Sub OnTextChanged(ByVal e As EventArgs)
   
5.     Me.OnDirtyStateChanged(args)
   
6. End Sub
   
7. 
   
8. Public Property FormattedValue() As Object Implements IEditingControl.FormattedValue
   
9. Get
   
10.     Return  Format(CInt(Me.Value), "#,###")
    
11. End Get
    
12. Set(ByVal value As Object)
    
13. .......................................
    
14. End Set
    
15. 
    
16. End Class
    

复制代码

我觉得不需要自定义Cell就可以实现。请尝试以下代码看是否满足需求。

2.         Dim template1 As Template = New Template1()
3.         Dim cell = template1.Row.Cells("textBoxCell1")
4.         cell.Style.Format = "#,###"
5.         cell.ValueType = GetType(Integer)
6.         GcMultiRow1.Template = template1

复制代码

恩，这样可以实现

但如果Format的式样是比较特殊的
有没有办法直接设定Cell的DisplayText的值呢？

使用CellFormatting和CellParsing事件可以定制任何Format的逻辑。
我写了一个例子，让Cell在编辑的时候自动在数字后边加个“元”字。你可以参考这段代码定制你的Format逻辑。

2. Private Sub GcMultiRow1_CellFormatting(sender As Object, e As GrapeCity.Win.MultiRow.CellFormattingEventArgs) Handles GcMultiRow1.CellFormatting
3.     If e.Value IsNot Nothing Then
4.         e.Value = e.Value.ToString() + "元"
5.         e.FormattingApplied = True
6.     End If
7. End Sub
9. Private Sub GcMultiRow1_CellParsing(sender As Object, e As GrapeCity.Win.MultiRow.CellParsingEventArgs) Handles GcMultiRow1.CellParsing
10.     If e.Value IsNot Nothing Then
11.         Dim text = e.Value.ToString()
12.         If text.EndsWith("元") Then
13.             text = text.Substring(0, text.Length - 1)
14.         End If
16.         Dim intValue As Int32
17.         Int32.TryParse(text, intValue)
18.         e.Value = intValue
19.         e.ParsingApplied = True
20.     End If
21. End Sub

复制代码

ok 我去试试 谢了