Foxtable(狐表)用户栏目专家坐堂 → [求助]能否限制字符型的列里面只能输入整数。


  共有1991人关注过本帖树形打印复制链接

主题:[求助]能否限制字符型的列里面只能输入整数。

帅哥哟,离线,有人找我吗?
81538475
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1288 积分:10384 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助]能否限制字符型的列里面只能输入整数。  发帖心情 Post By:2019/5/27 19:17:00 [只看该作者]

能否限制字符型的列里面只能输入整数。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部