only allow integers in INTEGER field

This commit is contained in:
Jonathan Jenne
2020-05-19 15:45:56 +02:00
parent 8313a21206
commit 485e052213

View File

@@ -310,6 +310,8 @@ Public Class ClassControls
Select Case DataType Select Case DataType
Case "INTEGER" Case "INTEGER"
oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
oEdit.Properties.Mask.EditMask = "d"
Console.WriteLine()
End Select End Select
If text IsNot Nothing Then If text IsNot Nothing Then