Dim cc As GridCurrentCell = Me.GridControl1.CurrentCell
If cc.RowIndex = 2 AndAlso cc.ColIndex = 2 Then
If e.Text.Length > 4 Then
e.Cancel = True
Else
Dim d As Double
If Double.TryParse(e.Text, Globalization.NumberStyles.Integer _
Or Globalization.NumberStyles.AllowDecimalPoint, Nothing, d) Then
If (d > 1 Or d < 0.01) And Not e.Text.EndsWith(".0") Then
e.Cancel = True
End If
End If
End If
End If