From 485e052213d5d06b1933df8a7290ee606e07921e Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 19 May 2020 15:45:56 +0200
Subject: [PATCH] only allow integers in INTEGER field

---
 Global_Indexer/ClassControls.vb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Global_Indexer/ClassControls.vb b/Global_Indexer/ClassControls.vb
index 0e847ed..20b2326 100644
--- 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