| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]能否限制字符型的列里面只能输入整数。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135485) |
| -- 作者：81538475 -- 发布时间：2019/5/27 19:17:00 -- [求助]能否限制字符型的列里面只能输入整数。 能否限制字符型的列里面只能输入整数。 |
| -- 作者：有点蓝 -- 发布时间：2019/5/27 21:16:00 -- KeyPressEdit事件 If e.Col.Name = "第一列" AndAlso Asc(e.KeyChar) <> 8 Then Dim d As Decimal If e.KeyChar <> "." If Decimal.TryParse(e.KeyChar,d) = False Then e.Cancel = True \'且取消此次按键 Return End If Else StatusBar.Message1 = Decimal.TryParse(e.Text & e.KeyChar,d) StatusBar.Message2 = e.Text & e.KeyChar If Decimal.TryParse(e.Text & e.KeyChar,d) = False Then e.Cancel = True \'且取消此次按键 End If End If End If |