Data Widgets
Sub SSDataGrid1_KeyPress (Keyascii As Integer) Dim x As Integer
If Keyascii = 27 Or Keycode = 13 Or Keycode = 9 Then
Exit Sub
EndIf
For x = 0 To SSDataGrid1.Cols - 1
SSDataGrid1.EvalRowNumber = SSDataGrid1.Row
SSDataGrid1.RowCellBackColor (x) = RGB(255, 0, 0)
Next
End Sub