only allow integers in INTEGER field

2020-05-19 15:45:56 +02:00
parent 8313a21206
commit 485e052213
1 changed files with 2 additions and 0 deletions
--- a/Global_Indexer/ClassControls.vb
+++ b/Global_Indexer/ClassControls.vb
@@ -310,6 +310,8 @@ Public Class ClassControls
        Select Case DataType
            Case "INTEGER"
                oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
+                oEdit.Properties.Mask.EditMask = "d"
+                Console.WriteLine()
        End Select

        If text IsNot Nothing Then