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