'如果修改码为真则意味着修改完毕
If Not isediting Then Return True
'获得单元格的内容
Dim currentvalue As Object = Me.TextBox.Text
Console.WriteLine(currentvalue) '---------
Try
currentvalue = setsuitablevalue(currentvalue)
SetColumnValueAtRow(dataSource, rowNum, currentvalue)
Catch ex As Exception
Return False
End Try
isediting = False
Invalidate()
Console.WriteLine("out commit") '---------
Return True
End Function
'放弃的处理
Protected Overrides Sub Abort(ByVal rowNum As Integer)
Console.WriteLine("abort")
isediting = False
Me.TextBox.Text = oldvalue
| 对此文章发表了评论 |

